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머 리 말 


(H 2( 알 


위대한 령도자 김정일동지께서는 다음과 같이 지적하시였다. 

《프로그람을 개발하는데서 기본은 우리 식의 프로그람을 개발하는것입니다.》 

(《김정일선집》제15권，196폐지) 


우리식의 조작체계를 개발할데 대한 경애하는 장군님의 말씀을 높이 받들고 우리 
의 과학자，기 술자들은《 붉은별》조작체 계 를 훌륭히 만들어 내 놓았다. 그러 나 우리앞 
에는 이러한 우리식 조작체계에서 리용할수 있는 더 많은 응용프로그람들을 개발하여 
야 할 중대한 과업 이 나서고있다. 

이 과업을 실현하자면 붉은별조작체 계 에서 프로그람개 발도구들을 적극 리 용하여 야 
한다. 

붉은별조작체계의 프로그람개발도구에는 강력한 개발환경과 문법구조를 가진 
Gambas 가 있다. 

Gambas 는 Linux 환경에서의 프로그람개발도구로서 Windows 환경에서 사용되던 
Microsoft Visual Basic 와 아주 근사한것 으로 하여 Linux 환경 으로 전환한 프로그람개 
발자들에게 매우 편리한 개발도구로 되고있다. 

Gambas 에 서 는 Visual Basic 에 서 처 럼 도형 사용자대 면부를 가진 프로그람을 개 발할 
수 있을뿐아니라 Linux 환경에서만 볼수 있는 조작탁응용프로그람도 작성할수 있다. 

또한 자료기지관리, 인터네트와 봉사기들과의 련결，자료압축과 같은 응용프로그 
탐도 개 발할수 있다. 

뿐만아니라 Gambas 응용프로그람은 통합개발환경을 통하여 서로 다른 Linux 환경 
에서 리용할수 있는 실행파일로 번역될수 있다. 

이와 같이 Gambas 는 자기의 단순성을 유지하면서도《전문》적인 개발도구로서의 
모든 특징을 다 가지고있는것으로 하여 프로그람작성언어로서의 자기의 지위를 당당히 
차지하고있다고 볼수 있다. 

특히 Gambas 는 Windows 환경 에서 Microsoft Visual Basic 에 숙련된 개 발자들에 
게는 Linux 환경 에서의 실질적 인 프로그람개 발도구를 제공하며 프로그람작성 에 미 숙한 
사람들도 일정한 수준의 응용프로그람들을 개발할수 있게 하여준다. 

독자들은 이 책을 학습하는 과정을 통하여 Gambas 에 의한 프로그람작성수준을 한 
계단 더 높일수 있을것이다. 

Gambas 도 다른 개발도구들과 마찬가지로 계속 진화하고있다. 

독자들은 이 책에서 나오는 실례들을 가지고 Gambas 에 대한 충분한 련습을 진행 
함으로써 Linux 환경에서 동작하는 응용프로그람들을 개발할수 있는 養튼한 기초를 마 
련하여야 한다. 
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제 1 장 . Gambas Oil 대한 리해 

1. Gambas 의 개발경우 I 

Gambas 는 프랑스의 어느 한 대 학실습생이 였던 베노이트 미 니씨 니 (Benoit 
Minisini) 에 의 하여 초기에 개발되였다. 

Gambas 라는 이름 그 자•체는 ( Gambas almost means Basic) (Gambas 는 Basic 
와 거의 비슷하다)에서 유래된것 이며 베노이트는 Microsoft Visual Basic 에 숙련된 개 
발자들을 위하여 이 프로그람을 개 발하였다고 한다. 

Visual Basic 에서 쓸모있다고 생각되는 모든것 즉 Basic 언어와 개발환경, 도형 사 
용자대면부를 가진 프로그람을 빨리 작성할수 있는 기능 등을 하나하나 도입하여 
Gambas 를 개발하였다. 

Gambas 는 Linux 조작체계를 탑재한 거의 모든 콤퓨터들에서 동작할수 있으며 이 
책을 쓸 당시의 판번호는 1.9. 23이다. 

2. Gambas 의 구성요소 

Gambas 로 작성 된 모든 프로그람은 프로젝 트파일 들로 구성 되 여있 다. 

매개의 프로젝트는 콜라스파일，홈，모둘과 자료파일들로 구성된다. 

Gambas 에서 프로젝트는 단일한 등록부에 보관된다. 

Gambas 그 자체 는 다음과 같은 프로그람들로 구성 되 여있 다. 

• 콤파일러 

• 해석자 

• 파일압축기 

• 도형사용자대면부 부분품 (component: 를포넨트) 

• 개발환경 

먼저 Gambas 콤파일러에 의하여 프로젝트의 들라스파일들을 콤파일한다. 

프로젝트를 를파일한 후에 수정된 들라스들이 존재하면 그 클라스들에 대하여서는 
재름파일해 야 한다. 

콤파일된것들가운데서 일부는 Gambas 해석 자에 의 하여 실행될수 있다. 

표준적으로 Gambas 해석자는 조작탁에 기초한 프로그람이다. 

우의 과정은 Java 가 작업 하는것과 매우 류사하다. 

클라스들사이의 외부참조는 실행시 동적으로 해결된다. 

Gambas 파일 압축기 는 전체 프로젝 트구조를 자체 로 실행할수 있는 파일로 변환 
한다. 

도형 사용자대 면부를포넨트는 도형 사용자대 면부 (GUI) 를 창조하기 위 해 리 용한다. 

현재 Gambas 는 gb.qt 를포넨트를 리용하여 도형대면부를 작성하고있다. 
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Gambas 가 다른 프로그람들과 구별되는 특징은 프로그람작성자들이 Gambas 언어 
능력을 확장할수 있는 확장요소(를포넨트)들을 포함하고있다는것이다. 

실례로 Gambas 에는 gb.net, gb.db 와 같은 확장를포넨트들이 있다. 

Gambas 개발환경은 여러가지 응용프로그람을 편리하게 개발할수 있도록 보장하여 
주는 프로그람묶음이다. 

사실 Gambas 의 개발환경은 Gambas 언어의 능력을 시위하기 위하여 Gambas 로 작 
성 한것 이 라고 한다. 



그림 1-1. Gambas 의 전반적인 구성도 


3. Gambas 프로그람작성환경 

1) Gambas 의 설치 

Gambas 프로그람패키지 gambas-1.9.23-13. i586. rpm 
을 두번 찰칵하여 실행시킨다. 

그러면 프로그람추가 및 삭제창문이 현시된다. 《예》 
gambas -1.9.23 - 단추를 눌러 다음단계 로 넘 어 가면 《 의 존성 이 존재 합니 

사 다.》라는 대화창이 현시된다.《계속》단추를 찰칵하여 다 

그림 1 - 2 . Gambas 프로그람패키지 음단계로 넘어간다. 이때 《 잠간 기 다리십시오, 설치중》 
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이라는 대화창이 나오면서 설치가 진행된다. 

설치가 끝나면 설치가 정확히 완료되였다는 통보문이 현시된다. 


2) Gambas 의 기동 

시작/응용프로그람/프로그람개발八도 ambas 를 찰칵하면 그림 1-3 과 같은 화면이 펼쳐 
진 다. 

여기서는 다음과 갈은 항목들가운데서 어느 한가지 항목을 선택할수 있다. 

• 새로운 프로젝트를 창조 (New project ---) 

• 이 미 존재 하는 프로젝 트를 열기 (Open project …) 

• 최 근에 리 용한 프로젝 트들의 열 기 (Recent projects ) 

• 실례 프로그람들 ( Examples ) 

• Gambas 의 탈퇴 ( Quit ) 



그림 1-3. Gambas 열기창문 


Gambas 를 빨리 터득하기 위하여 New project …항목을 선택하여 첫 Gambas 프로 
그람을 창조하여보자. 

그러면 그림 1-4 와 같은 대화창이 나타난다. 
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Welcome to the Gambas project creation 
wizard! 


This wizard aAows you lo create a new Qambas project This project wd be 
creatod from scratcn or from an alroady oxisting projod 

Prou Iho N ， x! button to start croaUng tho pro|od 

Press ih© Cancal button ro cancel Ihe wizard 



1 Metl » | _| ::뻬 l | 

그림 1-4. Gambas 프로젝트창조대화창 


인6없»를 찰칵하여 다음단계로 넘어 간다. 그러면 프로젝트의 형태를 요구하는 그 
림 1-5 와 같은 대화창이 현시된다. 



그림 1-5. 창조할 프로젝트의 형태를 선택하는 대화창 

이 대화칸에는 다음과 같은 선택항목들이 있다. 

• 도형사용자대 면부를 가진 프로젝트를 창조하겠는가? (Creat a graphical project ) 
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• 조작탁형프로젝트를 창조하겠는가 ? (Creat a terminal project ) 

• 복사하는 방법 으로 프로젝트를 창조하겠는가 ? (Copy an existing project ) 

• VB 프로젝트를 끌어들이는 방법으로 프로젝트를 창조하겠는가 ? (Import a VB 
project ) 

실례 로 《Creat a graphical project 》 를 선택 한 다음 ^^선가를 찰칵하면 그림 1-6 
과 같은 대화창이 펼쳐진다. 



이 대화창의 첫번째 본문칸에는 프로젝트의 이름을 입 력 한다. 

Gambas 에서 프로젝트는 여기서 지적한 이름을 가진 물리적파일로 등록부에 보관 
된다는것을 명심해야 한다. 

대화창의 두번째 본문칸에는 프로그람창문의 제목띠에 표시되는 프로젝트의 제목 
을 입력할수 있다. 

이 대화창에는 또한 2개의 선택항목 즉 project is translatable (프로젝트를 번역 
하겠는가?)과 Form controls are public (홈에서 리용된 콘트롤들을 public 로 처려하 
겠는가?)가 있는데 이 항목에 대해서는 후에 구체적으로 설명한다. 

적 당한 이름을 입 력한 다음 인 ext >> 단추를 찰칵하여 다음단계 로 넘 어 간다. 

그러면 아래와 같은 프로젝트등록부선택 대화창이 현시된다. (그림 1-7) 
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그림 1-7. 프로젝트 등록부선택대화창 


여기서 프로젝트가 보관되게 될 등록부를 지적한 다음 Next >> 단추를 찰칵하면 그 
림 1-8 과 같은 대화창이 현시된다. 이 대화창은 새로 창조하는 프로젝트에 대한 자기 
의 요구를 최종적으로 확증하는 대화창으로서 이전단계에서 설정하였던 여러가지 항목 
들에 대한 변경을 진행할수 있는 마지막 기회로 된다. 

OK 단추를 찰칵하면 Gambas 통합개 발환경 ( IDE : Integrated Design Environment ) 
이 펼쳐진다. 



그림 1-8. 새 프로젝트 창조대화창 
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그림 1-9. Gambas ■합개발환경 


Gambas 통합개발환경은 그림 1-9 에서 보는바와 
같이 여 러 요소들로 구성 되 여있 다. 

3) Gambas 의 IDE 구성요소 
① 프로젝트탐색창은 Gambas 기본창문이다. 

프로젝 트탐색 창의 웃쪽에 는 차림 표와 도구띠 들이 
있 다. 

File 차림표에서는 다음의것을 진행할수 있다. 

• 새 프로젝트의 창조 (New project ) 

• 프로젝 트열 기 (Open project ) 

• 최 근에 리 용한 프로젝 트열 기 (Open recent ) 

• 실례 프로그람열기 (Open example ) 

• 프로젝 트보관 (Save project ) 

• Gambas 체 계 의 끝내 기 ( Quit ) 

Project 차림표에서는 다음의것을 진행할수 있다. 

• 프로그람의 콤파일 ( Compile ) 


-il' ：' 'Tools T 

□ New proved.. Ctrl+N 

0^ Qpon projocl Ctrt+O 

Open recent 



Open fixamplo 

g| Ssyo project Ctrl+AII+S 
o Quit Ctrl40 


그림 1-10. File 차림표 
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• 전체 프로젝 트 를파일 (Compile All ) 

• 실행 프로그람 만들기 (Make executable ) 

• 원천프로그람압축 (Make source archive ) 

• 설치프로그람묶음 만들기 (Make installation package ) 

• 언어번역기능 ( Translate ) 

• 프로젝 트속성 설정 ( Properties ) 

View 차림표에서는 다음과 같은 과 

숨기기를 진행할수 있다 

• 속성 창 ( Properties ) 

• 도구창 ( Toolbox ) 

• 클라스의 계층구조 ( Hierarchy ) 

• 조작탁 ( Console ) 

• 아이콘편집기창 (Icon editor ) 

• 모든 창문의 닫기 (Close all wi 
Tools 차림표에서는 다음의것을 진 1 

• 자료기지 관리 (Database managi 

• Gambas IDE 환경 설정 ( Preferences ) 

프로젝트탐색기의 나무구조로부터 다음과 갈은 항목들이 연시되는것을 볼수 있다. 

• Classes (콜라스) 

Classes : 사용자가 창조한 프로젝트의 클라스파일들을 렬거해춘다. 

콜라스는 속성과 메쏘드，사건조종콘트롤을 가진 객체들을 실행시에 창조할 
때 리 용되는 기 초적 인 모형 들이다. 

• Forms (홈) 

Forms : 프로젝트를 위하여 창조한 여 러가지 홈들을 렬거한다. 

홈은 사용자가 실지로 호상 대화하게 될 창문이다. 

• Modules (모둘) 

Modules : 프로젝트에 작성된 모둘들을 현시해준다. 

모둘은 들라스와 달리 프로그람의 임의의 곳에서 리용할수 있는 부분프로그 
람들과 함수들의 간단한 모임 이 다. 

• Data (자료) 

Data : 프로젝트내에서 리용되는 기타 자료파일들을 렬거해춘다. 

자료파일로서는 그라프파일들과 아이콘, 비트매프, 본문 혹은 HTML 파일이 
나 다매체파일과 같은 여러 종류의 파일들을 포함한다. 

프로젝트 탐색기의 밑에는 Gambas 가 현재 무엇을 하고있는가를 보여주는 상태띠가 
있 다. 


창문들의 보이기, 


w loote 1 
141 aJ Propartin* 

■ ■ 士！ lo 이 box 


C|Fir3tPro(3| Hierarchy 
= ■必，，- 
♦ ， ►g 이 Icon oditor 

! €SM 。 必 Qob© fill wir 


그림 1-12. View 차림표 


indows ) 

행할수 있다. 





그림 1-13. Tods 차림표 
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② 홈설계창 

Gambas 에서 프로젝트개발을 시작할 때에는 보통 기본홈으로부터 시작한다. 

기본홈은 프로그람의 시작과 초기화가 일어나는 장소이며 사용자들이 응용프로그 
탐을 실행 시 킬 때 보통 처 음으로 맞다들리게 되는 대 면부이다. 

대면부설계는 홈설계 창에서 진행 한다. 

홈에 콘트롤들을 배치하고 속성을 변화시키는 방법으로 사용자의 기호에 맞는 대 
면부를 설계한다. 

③ 도구창 

도구창에 는 대 면부설계 도구들인 콘트롤들이 아이 콘형 태 로 있다. 

④ 속성창 

여기서는 홈과 각종 콘트롤들의 이름，너비，높이, 배경색，전경색을 비롯한 여러 
가지 속성들을 변화시킬수 있다. 

매 개 콘트롤들의 속성 들을 설정 하여 줌으로써 콘트롤들의 출현과 움직 임 을 변화시 킬수 
있 다. 

⑤ 코드창 

사용자와 대면부와의 호상작용은 사건으로 귀착된다. 

어떤 목적하는 사건에 대한 처리는 코드를 통하여 진행하는데 이 코드작성은 코드 
창에서 진행한다. 

이 책에서 서술한 모든 실례프로그람들은 붉은별조작체계에서 동작하는 

Gambas (version 1.9.23) 에 서 개 발한것 이 다. 

실례프로그람들은 Gambas 를 설치할수 있는 모든 콤퓨터들에서 실행시킬수 있다. 
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제 2 장 . Gambas 기초개념 

이 장에서는 Gambas 언어의 기초적 인 개 념들을 학습한다. 즉 Gambas 자료형과 상 
수, 변수의 정의 방법과 상수，변수들에 대한 값주기 방법을 학습한다. 

또한 기초적인 산수연산자들과 비교연산자들, 문자렬연산자들에 대하여서도 학습 
한다. 

1. 변수 

변수란 수학에서의 변수와는 달러 름퓨터의 기억기에 일시적으로 자료가 보관되는 
기억장소를 말한다. 

프로그람을 작성할 때 필요에 따라 여러개의 변수를 사용할수 있다. 

변수들은 클라스와 메쏘드 혹은 함수의 시작위치에서 정의하여야 한다. 

변수는 틀이나 함수에서는 국부적으로 선언되지만 클라스에서는 대역적으로 선 
언될수 있다. 

1) 국부변수 


변수선언형식 


[ dim ! 

변수이름 AS 자료형 

실례 



DIM iValue AS INTEGER 


DIM stMyName AS STRING 


DIM fMyMatrix AS FLOAT 


이러한 변수들은 자기가 선언된 틀이나 함수에서만 리용할수 있다. 

2) 대역변수 

변수선언형식 

[ STATIC ] ( PUBLIC | PRIVATE ) 변수이 름 AS [ NEW ] 자료형 

Public 를 지적하면 외부클라스들에서도 리용할수 있다는것을 의미 한다. 

Private 를 지적하면 그 변수가 정의된 클라스의 내부에서만 러용할수 있다는것을 의미 
한다. 

Sta 吐 c 를 지적하면 그가 정의된 클라스의 모든 객체내에서 같은 이름을 가진 변수 
는 공유된다는것을 의미한다. 

New 를 지적하면 변수는 지적된 자료형에 따라 믈라스의 새로운 실체로 초기화된다. 
대역변수는 그가 선언된 콜라스의 임의의 위치에서 리용될수 있다. 


0활활 0활■할■활 
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2. 자료형 


프로그람작성 자가 Gambas 프로그람코드작성 시 에 리 용할수 있는 기초적 인 자료형 들 
은 다음과 같다. 

Boolean , Byte , Short , Integer , Float , Date , String , Variant , Object 

1) Boolean 형(론리형) 

일반적으로 변수가 yes / no , TRUE / FALSE , 1八)값만을 가질 때 이 자료형을 리 
용한다. Boolean 변수선언이 진행되면 변수가 기억기의 lbyte 만을 차지하며 표준값은 
false 이 다. 

[실례 1] 

STATIC PRIVATE bGrid AS Boolean 

2) Byte 형(바이트형) 

Byte 형은 선언될 때 기억기에서 lbyte 를 차지하며 0~225까지의 값을 포함한다. 
Byte 형자료가 선언될 때 표준값은 0이 다. 

만일 255가 넘는 값을 리용할 때에는 이 자료형이 적합치 않다. 

그러한 조건에서는 Short 형 이나 Integer 형을 리용하는것이 더 좋다. 

3) Short 형(짧은옹근수형) 

Short 형값들은 -32 768 - +32 767범위의 값을 자진다. 

Short 자료형은 기억기에서 2 byte 를 차지하며 선언될 때 표준값은 0이다. 

4) Integer 형(몽근수형) 

Integer 자료형은 4 byte 를 차지 한다. 

Integer 형에서 리용할수 있는 수값범위는 -2 147 483 648 ~ +2 147 483 647이 다. 
이것은 VB 의 long 형과 류사하다. 

[실례 2] 

STATIC PUBLIC sSomeShort AS Short 
STATIC PUBLIC iSomelnteger AS Integer 

Integer 형자료가 적합하지 않을 때에는 Float 형을 쓸수 있다. 

5) Float 형(류동소수형) 

이 자료형은 프로그람에서 류동소수들을 쓸수 있게 한다. 

Float 형은 C 나 VB 에서 쓰던 Double 형과 같다. 

Float 자료형의 범위는 부수로서는 -1.797 693 134 862 32 E 308 - -4.940 656 458 412 
47 E 324, 정수로서는 4.940 656 458 412 47 E 324 - 1.797 693 134 862 32 E 308 이 다. 
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Float 형변수들은 기억기에서 8 byte 를 차지하며 선언될 때에는 표준적으로 0값을 가 
진 다. 


[실례 3] 

DIM fRadius AS Float 

6) Date 형(날자형) 

Date 형도 기억기에서 8 byte 를 차지한다. 

날자값은 4 byte 옹근수로，시간값은 4 byte 옹근수로 기억된다. 

즉 [년, 달, 날자][시 간，분，초]로 기 억되며 보통 날자，시 간함수에서 많이 리용 
된 다. 

Date 형은 선언될 때 표준으로 NULL 값으로 초기화된다. 

[실례 4] 

DIM ddate AS Date 
DIM dtime AS Date 

String , Variant , Object 자료형 들은 Gambas 에 서 지 원하는 비 수값자료형 들이다. 

7) String 형(문자렬형) 

String 형은 여러개 문자들의 련속으로서 문자자료들 혹은 빈문자렬을 포함한다. 
여기서 문자자료란 글자나 수자 혹은 $%-&*와 갈은 특수문자들을 의미한다. 

String 은 선언될 때 기 억기 에서 4 byte 를 차지 하며 내적으로 문자렬의 길 이를 
표시 한다. 

[실례 51 

STATIC PUBLIC stSomeString AS String 

8) Variant 형 (변화형) 

Variant 형은 받게 될 변수의 자료형을 알수 없을 때 리용한다. 

실례로 만일 파일로부터 Integer 형, String 형, Float 형수값자료를 읽는다고 할 때 
프로그람의 파괴를 일으키지 않으면서 자료들을 변수에 넣자면 Variant 형변수를 써야 
한다. 

이때 자료형을 결정하기 위 하여 자료형검사함수들을 리용하여 자료형을 검증한 다 
음 변환함수를 리용하여 필요한 자료형으로 변환할수도 있다. 

9) Object 형(객체형) 

Object 형은 콘트롤이나 홈과 같은 객체들을 참조하는 특수한 자료형 이다. 


0활활 0활■할■활 
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후에 객체지향프로그람작성에 대하여 론할 때 이 자료형의 러용에 대하여 구체적 
으로 설명하기로 한다. 

다음의 표는 자료형 에 대 한 종합적 인 자료들을 보여준다. 


m 2-1. Gambas 자료형 


자료형 

수범 위 

기억 크기 

표준값 

Boolean 

True or False 

lbyte 

FALSE 

Byte 

0-255 

lbyte 

0 

Short 

- 32 768 ~ +32 767 

2 byte 

0 

Integer 

-2 147 483 648 ~ +2 147 483 647 

4 byte 

0 

Float 

◦언어의 double 형과 비슷함 

8 byte 

0 

Date 

날자/시 간 

8 byte 

NULL 

String 

문자렬변수길이를 참조 

4 byte 

NULL 

Variant 

임의의 자료형으로 

12 byte 

NULL 

Object 

객체에 대한 간접적인 참조 

4 byte 

NULL 


지금까지의 변수선언실례들을 살펴 보면 변수이름시작부분에 작은 글자 《 ar 》，( s >, 
< i >, ( f >, ( d >, 《 st 》, 《 v 》， 《 0 》를 쓴것을 알수 있다. 

이 문자들은 Gambas 프로그람작성시 변수선언에서 공통적으로 리용되는 표시들로 
서 프로그람작성자들로 하여금 실천에서 변수에 대한 선언부분을 찾아보지 않고도 이 
름만 보고 변수의 형을 알수 있게 하여주는 수법 이다. 

일부 프로그람작성자들은 변수들의 이름을 특징짓는데 IntMyNumber , 
ByteSome 比 ling 과 같이 더 많은 글자들을 리용하기도 한다. 

3. 상수 

프로그람실행과정 에 변하지 않는 값을 상수라고 한다. 

상수선언형식 

(PUBLIC | PRIVATE ) CONST 상수이름 AS 자료형 = 


이 명 령문으로는 클라스 대 역상수들을 선언한다. 

선언된 상수들은 클라스안의 임의의 장소에서 리용될수 있다. 

만일 public 를 지적 하면 그 상수는 외부클라스에서도 러용할수 있다. 
상수값들은 Boolean 형 , Integer 형 , Float 형 , String 형 이 될수 있다. 

[실례 6] 

PUBLIC CONST MAX AS Integer = 30 
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PRIVATE CONST MAGIC AS String = "Gambas form file " 
H 2-2. _ Gambas 싱수宣 _ 


상 수 

실 례 

TRUE 값 

TRUE 

FALSE 값 

FALSE 

옹근수자료들 

0, 562, 17, 32 769 

16진부호있는 짧은 옹근수 

& H 100 F 3, 技 HFOFF , &FFFF 

16진부호있는 옹근수 

& H 1 ABF 332 E , &1 CBF 302 E 

16진부호없는 옹근수 

& H 80 A 0&, & HFCFF & 

2 진옹근수 

& X 1010111101, %101000011 

류동소수 

1.111 0, 5.341 9 E +4 

문자렬상수들 

” Hello , Gambas World !" 

빈 문자렬 

NULL 


문자렬상수들은 다음과 같은 특수기호들도 포함한다. 


표 2-3. 수조종기호 


특수조종기호 

대응하는 ASCII 값 

\n 

CHR $(13) 

\r 

CHR $(10) 

\t 

CHR $(9) 

\ w 

인용괄호 

\\ 

사선기 호 


문자렬상수들은 련속적으로 쓸수도 있다. 실례로 "선군정치" "만세”에 대하여 
Gambas 에 서 는 ’’선군정 치 만세 ”와 꼭 같이 인식한다. 


0활활 0활■할■활 
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4. 값주기명령문 

다음과 갈은 일반형식을 리용하여 변수에 임의의 값을 보관할수 있다. 
• 일반값주기형식 


일반주기형식 

변수 = 식 
[실례] 

iMyVal = 1984 
stMyName = " Orwell 1 
fMyNum = 123.45 


• 객체속성에 대한 값주기 


형식 

객체이름.속성 = 식 
[실례] 

hButton.X = 215 
hButton . Y = 60 
ProgressBarl . Value = 0.0 
Label 2. Text = "some real " 


같은 객체에 대한 속성값주기는 With 명령문을 리용할수 있다. 


형식 

WITH 객체 
.속성 = 식; 


END WITH 
[실례] 

hButton . Width = 200 
hButton . Height = 40 
hButton . Enabled = TRUE 
hButton . Text = " Exit " 

이 명령문은 다음과 같이 쓸수 있다. 

WITH hBu 竹 on 
.Width = 200 
.Height = 40 
. Enabled = TRUE 
.Text = " Exit " 

_ END WITH _ 
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이 명령문은 콘트롤들의 속성값을 줄 때 거의 공통적으로 사용된다. 

5. 연산자와 식 

지금까지 변수와 상수선언은 어떻게 하며 여기에 값주기는 어떻게 하는가에 대 
하여 보았다. 

그러면 그것들사이에 수행될수 있는 연산자들을 보기로 하자. 

먼저 비교연산자들을 보고 다음 산수연산자들과 문자렬연산자들을 보자. 

1) 비교연산자 


두 변수들의 비교는《표와 도는 같은가?》， 《 a 는 건보다 작은가?》와 같은 질문에 대 
답을 줄것을 요구한다. 

표 2-4. 비교연산자 


연산자 

의 미 

실 례 

= 

같기 

IF a = b THEN ... 

<> 

같지 않기 

IF a <> c THEN ... 

< 

보다 작다 

IF a < d THEN ... 

> 

보다 크다 

IF a > e THEN ... 

<= 

같거 나 작다 

IF a <= f THEN ... 

>= 

같거 나크다 

IF a >= g THEN ... 


2) 산수연산자 

가장 기초적인 산수연산자들로서 +( 더하기), _(덜기), *( 곱하기)，/(나누기), \(옹 
근수나누기), mod (나머지), ᄆ(제곱) 등이 있다. 

값이나 변수에 덜기기호가 붙을수 있다. 례 : -222, -aaa 
[실전 실습] 

첫 Gambas 프로그람을 작성하여보자. 

조작탁창문에서 는 작성한 코드에 대한 실행결과를 즉시에 현시하여준다. 

지금까지 학습한 자료형과 변수값주기 에 기초하여 Gambas 프로그람을 단계 별로 작 
성 해 보자. 

Gambas 를 기동한 다음 File 차림표에서 New project 를 선택한다. 

다음 New project 창조조수에 서 Create a Terminal Project (조작탁형 프로젝 트창 
조)를 선택하고 Next >> 단추를 찰칵한다. 

프로젝트이름편집칸에 TerminalTest 를 입력한 다음 TerminalTest 라는 등록부를 
만들고 여기에 창조하려는 프로젝트를 보관한다. 
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다른 항목에 대해서는 상관없이 조수가 완성될 때까지 Next >> 단추를 찰칵한다. 
프로젝 트탐색 창의 나무구조에 서 Classes 항목을 찾아 마우스오른쪽단추를 찰칵한다. 
이때 나오는 차림표에서 New / class ... 항목을 선택 하면 New class 대화창이 나온다. 
체 계 설정이름인 classl 을 그대 로 두고 OK 단추를 찰칵한다. 

이때 코드창문이 현시되고 창문안에 다음과 같은 코드가 보인다. 

’ Gambas class file 

STATIC PUBLIC SUB MainO 
END 

코드의 첫 행 에 있는 웃반점 은 설명 문을 의 미한다. 

PUBLIC SUB MainO 과 END 사이에 다음과 같은 코드를 넣는다. 

STATIC PUBLIC SUB MainO 
DIM N AS Integer 
DIM R AS Integer 
N = 3 
R = 6 

PRINT “===> ，’ : N ； " | " : - R ； n 과 "； -N ;| ; R ； 

END 

코드창에 코드를 입 력 한 다음 프로젝 트탐색 기 의 도구띠 에 있는 풀색단추 (실 행단 
추)를 찰칵하여 프로그람을 실행시킨다. 

만일 다른 오유없이 실행되면 푸른색새우가 춤추는것을 볼수 있으며 조작탁창문에 
는 다음과 같은 결과가 나타난다. 

===> 3 | -6 과 -3 | 6 

[실례 73 

STATIC PUBLIC SUB MainO 
DIM N AS Integer 
DIM R AS Integer 
N = 8 
R = 5 

PRINT "===>" : N - R ； 

END 

결과: ===> 3 
[실례 8] 

STATIC PUBLIC SUB MainO 
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DIM N AS Integer 
DIM R AS Integer 
N = 8 
R = 5 

PRINT "===> ，， ; N * R; 

END 

결과: ===> 40 
[실례 9] 

STATIC PUBLIC SUB MainO 
DIM N AS Integer 
DIM R AS Integer 
N = 9 
R = 3 

PRINT ，，一 〉 n ； N / R ； 

END 

결과:===〉 3 

만일 《/》다음에 오는 수의 값이 령 이면 division by zero( 령으로의 나누기)오유 
가 생긴다. 

이때에는 stop 단추를 찰칵하여 프로그람을 중지시킨다. 



Division by zero 


11 Stop j| Continue | 

그림 2-1. 령으로의 나누기오유대화창 


[실례 10] 

STATIC PUBLIC SUB MainO 
DIM N AS Integer 
DIM R AS Integer 
N = 9 
R = 5 

PRINT ，，一 〉’’ ; N \ R ； 

END 

결과: ===> 1 
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나누기를 할 때 뒤로사선기 호《\》를 리 용하면 옹근수나누기 가 진행된다. 

[실례 11] 

STATIC PUBLIC SUB MainO 
DIM N AS Integer 
DIM R AS Integer 
N = 9 
R = 5 

PRINT ，’===>상:，，; N \ R ； " 나머지 : "；9 MOD 5； 

END 

결과: ===> 상: 1 나머지: 4 

실례 에서 보는바와 같이 mod 연산자를 려용하여 두 수를 나눈 나머지를 구할수 있다. 

여기서도 mod 연산기 호의 오른쪽에 놓이는 수가 령이면 오유가 발생 한다. 

제곱계산은 수■'제곱형식을 리용하여 진행한다. 

[실례 12] 

STATIC PUBLIC SUB MainO 
DIM N AS Integer 
DIM R AS Integer 
N = 2 
R = 3 

PRINT "===>"； N " R ； 

END 

결과: ===> 8 

DEC / INC 는 변수값을 하나씩 감소/증가시킨 다. 

이때 변수는 반드시 수값형이여야 한다. 

[실례 13] 

STATIC PUBLIC SUB MainO 
DIM N AS Integer 
DIM R AS Integer 
N = 5 
R = 5 
DEC N 
INC R 
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PRINT "===> " : N ； " | R ； 

END 

결과:==> 4 | 6 

Gambas 에서는 C 나 C ++ 언어에서처럼 생략연산자를 쓸수 있다. 
실례로 a +=2, b /=4 
3) 론리연산자 

Gambas 에서는 또한 론리연산도 할수 있다. 

론리연산자로서 는 AND , OR , XOR , NOT 가 있 다. 

AND 를 리용하여 두수의 2진값에 대한 론리적을 계산한다. 

[실례 14] 

STATIC PUBLIC SUB MainO 
DIM N AS Integer 
DIM R AS Integer 
N = 0 
R = 0 

PRINT "=> "； N ;" 과 " ； R : "의 AND 결과는: ” : 
R = 1 

PRINT "=> "； N ;" 과 " : R : ”의 AND 결과는: ” : 
N = 1 

PRINT "=> "； N ;" 과 " : R : ”의 AND 결과는: ” : 
END 
결과 

=> 0 과 0 의 AND 결과는: 0 
=> 0 과 1 의 AND 결과는: 0 
=> 1 과 1 의 AND 결과는: 1 
론리합연산은 OR 를 리용하여 진행한다. 

[실례 15] 

STATIC PUBLIC SUB MainO 
DIM N AS Integer 
DIM R AS Integer 
N = 0 
R = 0 

PRINT "=> "； N ；" 과 "; R 의 OR 결과는: "； r 


N AND R 

N AND R 

N AND R 


OR R 
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R = 1 

PRINT ”=> ”; N ;” 과 "； R :" 의 OR 결과는: "； N OR R 
N = 1 

PRINT "=> "； N ;" 과 "; R :" 의 OR 결과는: "； N OR R 
END 
결과 

=> 0 과 0 의 OR 결과는: 0 
=> 0 과 1의 OR 결과는: 1 
=> 1과 1의 OR 결과는: 1 
XOR 를 리 용하여 두수의 배 타적 론리합을 계 산한다. 

[실례 16] 

STATIC PUBLIC SUB MainO 
DIM N AS Integer 
DIM R AS Integer 
N = 0 
R = 0 

PRINT "=> "； N ；" 과，，; R 의 XOR 결과는: "； N OR R 
R = 1 

PRINT "=> "； N ；" 과 "; R 의 XOR 결과는: "； N OR R 
N = 1 

PRINT "=> ”; N ;” 과 "； R :" 의 XOR 결과는: ”; N OR R 
END 
결과 

=> 0 과 0 의 XOR 결과는: 0 
=> 0 과 1 의 XOR 결과는: 1 
=> 1 과 1 의 XOR 결과는: 0 

NOT 연산자는 식의 론리적부정값을 계산한다. 


형식 

결과 =not 식 


만일 식 이 문자렬 이거 나 객체인 경우 식 이 비 여있지 않으면 TRUE 를 돌려준다. 
[실례 17] 

STATIC PUBLIC SUB MainO 
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PRINT NOT TRUE 
PRINT NOT FALSE 
PRINT NOT ” Gambas” 

PRINT NOT " " 

END 

결과 

False 

True 

False 

True 

Gambas 에서 사용되는 연산자들의 연산순위 및 연산순서는 다음과 같다. 
m - 5 . 연산자될의 연산순위와 연산순서 


연산자의 종류 

연산자 

순위 

연산순서 



1 

왼쪽에서 오른쪽으로 

산수연산자 

*，/, \， mod 

2 

왼쪽에서 오른쪽으로 


+ , - 

3 

왼쪽에서 오른쪽으로 

비교연산자 

=,<,<=,>=,> 

4 

왼쪽에서 오른쪽으로 


Not 

5 

왼쪽에서 오른쪽으로 

론리 연산자 

And 

6 

왼쪽에서 오른쪽으로 


Xor, or 

7 

왼쪽에서 오른쪽으로 


4) 문자렬연산자 

문자렬들을 비교하거나 련결할 때 문자렬연산자들을 리용한다. 
Like 는 문자렬의 론리적 인 비교를 진행 하는데 리용한다. 


형식 

문자렬 Like 패 런 


만일 문자렬 이 패 런과 곡 갈으면 TRUE 값을 돌려준다. 

패런은 다음과 같은 패런기호들을 포함할수 있다. 

* 임의의 형태의 n 개의 문자와 일치하면 
? 어떤 하나의 문자와 일치하면 

[abc] 괄호안에 들어있는 문자들중 어느 한 문자라도 일치하면 
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[ x - y ] 표와 y 사이에 있는 임의의 어느 한 문자와 일치하면 

fx - y ] 표와 y 사이에 있지 않는 임의의 어느 한 문자와 일치하면 

[실례 18] 

STATIC PUBLIC SUB MainO 
PRINT " Rit 社 nghouse " LIKE " R *" 

END 

결과 : TRUE 

문자렬에서 《\》다음에 나타나는 문자들을 단순한 문자렬로 생각해서는 안된다. 
이것은 앞의 문자렬상수에서 본바와 같이 특수조종기호로 보아야 한다. 

[실례 19] 

STATIC PUBLIC SUB MainO 
PRINT " Samson " LIKE " S *" 

PRINT " Gambas " LIKE "?[ Aa ]*" 

PRINT " Leonard " LIKE " G [ Aa ]\\*" 

PRINT " Alfred " LIKE " GrAa ]*" 

END 

결과 

TRUE 

TRUE 

FALSE 

FALSE 

[주의] 

패 런문자렬에 뒤사선기호 《\》를 기호로 러용하려면 뒤사선기호를 련속 2번 사용 
해야 한다. 그렇지 않으면 뒤사선기호《\》를 ’\ n ’, ’\ t ’, ’\*’와 같은 특수조종기호 
로 해석할수 있다. 패런문자렬에 《*》를 기호로 리용하려면 페런문자렬을 " G [ Aa ] M " 
와 같이 구성할수 있다. 

다음의 문자렬연산자들은 문자렬들과 파일경 로를 련결하거 나 두개 의 문자렬 들을 


비교할 때 리용할수 있다. 

아래 의 것 은 문자렬 연산자표이 다. 

표 2-6. Gambas 留^면신» 


문자렬연산자 

실행 결과 

문자렬 & 문자렬 

두 문자렬을 련결한다. 
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문자렬 &/ 문자렬 

파일이름을 가진 두 문자렬을 련결한다. 

필요하다면 두 문자렬들사이 에 경 로분리 기 호를 추가한다. 

문자렬 LIKE 패런 

패런에 따라 문자렬을 비교한다. 

문자렬 = 문자렬 

두 문자렬이 같은가를 결정한다. 

문자렬 <> 문자렬 

두 문자렬 이 같지 않은가를 결정한다. 

문자렬 < 문자렬 

첫 번째 문자렬 이 두번째 문자렬 보다 작은가를 결정한다. 

문자렬 > 문자렬 

첫번째 문자렬이 두번째 문자렬보다 큰가를 결정한다. 

문자렬 <= 문자렬 

첫번째 문자렬이 두번째 문자렬보다 같거나 작은가를 결 
정 한다. 

문자렬 >= 문자렬 

첫번째 문자렬이 두번째 문자렬보다 같거나 큰가를 결정 
한다. 


[실례 20] 

STATIC PUBLIC SUB MainO 
DIM a AS String 
DIM b AS String 
a ; "정보” 
b = "산업 " 

PRINT "===> "； a & b； 
a = "Gambas" 
b = 2 

PRINT "===> ": a & b & 가 개발되였습니다. ” : 

END 

결과 

===> 정보산업 

===> Gambas2 가 개발되였습니다. 

Gambas 는 사건지향언어 이 다. 

프로그람작성자는 어떤 사건이 일어날 때 어떻게 해야 하는가를 결정할수 있는 능 
력을 가져 야 하며 또한 Gambas 의 예 약어들을 리용하여 프로그람이 해 야 할 일을 지적 
해주는 명령문들을 작성해 나간다. 

코드작성에서 먼저 맞다들리게 되는 예약어들을 간단히 소개한다. 
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① PRINT 

이 지령은 식을 표준출력으로 출력한다. 


형식 


PRINT 식 _|,) 식 .. 

.] [(；!,)] 


우에서 정의한 문법에서 사용된 괄히]는 선택적인 인수라는것을 의미한다. 

만일 마지 막 식 다음에 반두점 이 나 반점 이 없 으면 마지 막 식 이 표시 된 다음 새행 
으로의 표시가 자동적으로 진행된다. 

만일 식 들사이 의 구분을 반두점 대 신 반점 을 리 용하면 식 들을 구분하기 위하여 출 
구값들사이에 TAB (6 글자)간격을 두고 표시된다. 

[실례 21] 

STATIC PUBLIC SUB MainO 
DIM b AS Integer 
B = 1 

PRINT "===> " & "b is ： " & b 
PRINT ，’===> " ， "b is ： " , b 
PRINT "===> " : "b is ： " & b 
END 
결과 

===> b is ： 1 

===> b is ： 1 

===> b is : 1 

② END 

END 는 함수나 수속의 끝을 나타낸다. 

END 를 사용하는데서는 VB 와 3가지 차이점 이 있다. 

VB 에서 END 는 모든 홈들과 파일들을 닫고 프로그람을 끝내지만 Gambas 에서의 
END 는 VB 의 End Function 이 나 End Sub 처 럼 작용한다. 

즉 END 명 령문은 함수나 부분프로그람의 끝을 표시한다. 

③ QUIT 

Gambas 에서 VB 의 END 명령문과 류사한 기능을 하자면 QUIT 명령문을 사용해야 
한다. 

그러면 프로그람을 즉시에 끝낼수 있다. 

즉 모든 창문들이 닫기고 기억기에 있던 모든것들이 가능한껏 완전히 해방된다. 
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④ RETURN 

Gambas 에서는 수속이나 함수에서 랄뢰하려고 할 때 RETURN 명령문을 사용할수 
있 다. 


형식 

RETURN [ 식 ■ 


RETURN 명령문을 수행하면 수속이나 함수에 <식>의 값을 돌려주고 자기 일을 끝 
낸다. 
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제 3 장. 프로그람흐를조종 

1. 무조건이행 및 조건갈래명령문 


1) GOTO 명령문 
형식 

Goto 표식 
명령문들 
표식 : 


표식 이 있는 위 치 에로 무조건 이행하는 명령문이다. 

즉 표식은 GOTO 명령문이 가야 할 목적지 이다. 

표식을 정의할 때 두 점과 표식사이에는 공백이 없어야 한다. 
2) IF 명령문 

형식 

IF 조건식 THEN 
명령문들1 

[ELSE IF 조건식 
명령문들 
-] 

[ELSE 

명령문들 


IF 명 령 문은 결 심 채 택 에 리 용된 다. 

첫 조건식값이 TRUE 이면 《명령문들1》을 수행하고 만일 FALSE 이면 ELSE IF 
다음의 조건식을 판단한다. 

이때 조건식값이 FALSE 이면 또 ELSE IF 다음의 조건식을 판단하는 식으로 조건 
식이 TRUE 될 때까지 찾는다. 

TRUE 인 조건을 찾으면 대 응하는 명 령 문들을 수행 하고 ENDIF 다음의 명령문을 수행 
한다. 

TRUE 인 조건을 찾지 못하면 ELSE 다음의 명 령 문들을 수행한다. 

비교를 하고 그에 기초하여 결심을 채택하게 하는 가장 일반적인 명령문들중의 하나 
이다. 
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[실례 1] 

STATIC PUBLIC SUB MainO 
DIM b AS Integer 
B = 1 

IF b = 1 THEN 

PRINT "===> ” & "Gambas 의 판본은 ” & b ； 
ELSE IF b <> 1 THEN 
PRINT " 인쇄하지 말것 " ; 

ELSE 

PRINT "오유발생’’ 

ENDIF 

END 

결과: ===> Gambas 의 판본은 1 
3) SELECT / CASE 명령문 


형식 


SELECT 비 교식 


[CASE 값1‘ 

값2 

[CASE 값 L : 

값2 …]1 

[CASE ELSE 

| DEFAULT ...] 


Select 명령문은 식을 계산하고 그것을 매 CASE 에 지적된 값과 비교한 다음 같은 
경 우에 는 그 CASE 명 령 문안에 있는 코드를 수행한다. 만일 식 값이 아무런 CASE 값과 
도 일 치 하지 않으면 DEFAULT 나 CASE ELSE 다음의 명 령 문을 수행한다. 

SELECT / CASE 명령문은 여러개의 IF / ELSE 명령문을 쓰지 않고도 많은 식값을 
비 교해 야 하는 코드블로크를 작성할수 있게 한다. 


[실례 幻 

STATIC PUBLIC SUB MainO 
DIM w AS Integer 
w = 1 

START ： ‘( START : 는 아래의 GOT ◦문들에서 이행하게 될 표식) 
PRINT ” w 의 값은 : & w 

SELECT CASE w 
CASE 1 
INC w 
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GOTO START 
CASE 2 
INC w 

GOTO START 
CASE 3 
INC w 

GOTO START 
CASE ELSE 

PRINT "이 W 값은 아무런 조종도 받지 않는다. : " & w 
END SELECT 

PRINT " w 의 마지막값 : & w 

END 
결과 

방의 값은 : 1 
w 의 값은 : 2 
w 의 값은 : 3 
방의 값은 : 4 

이 w 값은 아무런 조종도 받지 않는다: 4 
w 의 마지막값 : 4 

실례에서는 변수 방의 값이 4까지 증가하기때문에 CASE 에서 그 값을 비교하다가 
마지 막에 는 CASE ELSE 블로크를 수행하게 된 다. 

CASE ELSE 대신에 CASE DEFAULT 를 쓸수도 있다. 


2. 순환명령문 


1) FOR/NEXT 명령문 
형식 

FOR 변수 = 시 작값 TO 끝값 [ STEP 걸음값 ] 
NEXT 


FOR 명 령 문은 프로그람에 서 공통적 으로 리 용되 는 순환명 령 문이다. 
STEP 값은 순환에 서 증가 혹은 감소되 여 야 할 간격 의 크기 를 정해 춘다. 
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PRINT ' 
END 
결과 

순환회 수 
순환회 수 
순환회 수 
순환회 수 
순환회 수 
순환회 수 
순환회 수 
J 값: 8， 


순환변수 I 의 
순환변수 I 의 
순환변수 I 의 
순환변수 I 의 
순환변수 I 의 
순환변수 I 의 
순환변수 I 의 
값: 22 


우의 실례에서 일단 I 값이 끝값 21을 초과하면 순환은 중지되며 코드는 NEXT 다 
음 명 령문을 실행한다. 

초기에 Gambas 를 학습할 때에는 실례로 주어지는 코드들을 작성하고 PRINT 명령 
문을 리용하여 변수값들을 변화시키면서 계속 련습하도록 하시오. 

조작탁을 잘 리용하면 변수값과 코드토막을 쉽게 검증할수 있다. 

우의 실례에서 걸음값을 3으로부터 1로 변화시켜보시오. 


계 3 장. 프포그1/•호#조종 

먼저 변수에 시작값을 넣고 순환부안의 명령문들을 수행하고 걸음값만큼 변수값을 
증가 (감소) 시킨 다. 

다음 변수값을 끝값과 비 교하여 끝값을 넘 지(작지) 않았으면 순환부분을 반복하고 
매번 변수값을 걸음값만큼 증가(감소)시킨다. 

순환은 끝값을 넘으(작으)면 끝난다. 

Step 가 생 략된 경우 걸음값을 1로 하여 순환한다. 

이 때 변수는 수값형 ( Byte 형， Short 형 , Integer 형 , Floating 형 ) 이 여 야 하며 또한 
반드시 국부변수로 선언되여야 한다. 

순환명령문에서 걸음값이 정수이면서 시작값이 끝값보다 큰 경우，걸음값이 부수 
이면서 시작값이 끝값보다 작은 경우의 순환은 전혀 일어나지 않는다. 

[실례 3] 

STATIC PUBLIC SUB MainO 
DIM I AS Integer 
DIM J AS Integer 
J = 1 

FOR I = 1 TO 21 STEP 3 
PRINT "순환회수: " & J & ", 순환변수 I 의 값: ” & I 
INC J 


0 3 6 9 
IX 4 - v» IX IX IX IX 

가 UA 가 «A 가 HA 
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다음은 순환명령문을 FOR 1=21 to 1 STEP 1로 변화시키고 프로그람을 실행시켜보 
시오. 

Gambas 에는 또한 집합, 묶음, 유한개의 클라스들에 그 반복회수를 미리 알지 못 
해도 값들을 반복하여 넣을수 있는 FOR EACH 순환명령문이 있다. 

FOR EACH 명령문에 대해서는 집합을 배울 때 충분히 학습하기로 한다. 

2) DO [WHILE] LOOP 명령문 

■石 

DO [WHILE 조건식] 

_ LOOP _ 


DO [ WHILE ] LOOP 명 령 문은 조건을 만족하거 나 순환안에서 EXIT 를 만날 때까 
지 순환을 반복한다. 

순환되는 코드부분은 DO 와 LOOP 사이에 있는 명령문들이다. 

만일 WHILE 이 지적되지 않은 경우에는 무한순환이 계속 진행되거나 일부 조건이 
랄퇴조건을 만날 때까지 순환이 계속된다. 

또한 WHILE 이 지적된 경우에는 일단 조건식의 검사결과가 FALSE 이면 순환이 
중지된다. 

다시말하여 조건식값이 TRUE 인 동안은 순환이 계속 반복된다. 

만일 순환이 시작될 때 초기에 조건식값이 FALSE 이면 순환은 절대로 일어나지 않 
는다. 


[실례 4] 

STATIC PUBLIC SUB MainO 
DIM a AS Integer 
A = 1 

DO WHILE a <= 5 
IF a = 1 THEN 

PRINT n 순환 ” & a & n 번째 . 
ELSE 

PRINT n 순환 n & a & ’’번째 . 
ENDIF 
INC a 
LOOP 
DEC a 
PRINT 
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PRINT "안녕 : 순환총회수" & a & "번. 
END 
결과 

순환 1 번째. 

순환 2 번째 . 

순환 3 번째 . 

순환 4 번째 . 

순환 5 번째 . 

안녕: 순환총회 수: 5번. 

3) WHILE WEND 순환명 령문 
형삭 

WHILE [조건식] 

WEND 


이 순환명령문은 조건식이 TRUE 인 경우 순환이 반복된다. 

만일 초기에 조건이 만족되지 않으면 순환이 절대로 일어나지 않는다. 
즉 DO WHILE LOOP 와 WHILE ... WEND 명령문은 꼭 같다. 

[실례 5] 

STATIC PUBLIC SUB MainO 
DIM a AS Integer 
a = 1 

WHILE a <= 5 
IF a = 1 THEN 

PRINT " WHILE . ..WEND 순환 " & a & ” 번째.，， 
ELSE 

PRINT " WHILE...WEND 순환 ” & a 沒 ’’ 번째.’’ 
ENDIF 
INC a 
WEND 
DEC a 
PRINT 

PRINT " WHILE . ..WEND 순환총수: ” & a & ” 번." 


END 
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결과 

WHILE .. 

.WEND 

순환 

1 

번째 

WHILE .. 

.WEND 

순환 

2 

번째 

WHILE .. 

.WEND 

순환 

3 

번째 

WHILE .. 

.WEND 

순환 

4 

번째 

WHILE .. 

.WEND 

순환 

5 

번째 

WHILE .. 

.WEND 

순환총수: 5 


4) REPEAT UNTIL 순환 

형식 

REPEAT 
UNTIL [조건식] 

이 순환명 령 문은 조건식 이 만족될 때 까지 (즉 조건식 이 FALSE 인 동안) REPEAT 
와 UNTIL 사이의 명령문들을 반복한다. 

REPEAT 명령문은 UNTIL 의 조건식 값이 초기에 TRUE 인 경우에도 무조건 한번 
은 순환을 수행한다. 

[실례 6] 

STATIC PUBLIC SUB MainO 
DIM a AS Integer 
A = 1 
REPEAT 
IF a = 1 THEN 


PRINT 

"REPEAT 

UNTIL 

순환 ’ 

' & a & f 

’ 번째 

ELSE 

PRINT 

” REPEAT 

UNTIL 

순환 ’ 

’ & a & ’ 

’ 번째 


ENDIF 
INC a 

UNTIL a > 5 
DEC a 
PRINT 

PRINT "REPEAT UNTIL 순환총회수: ” & a & " 번. 
END 
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결과 

REPEAT UNTIL 순환 1 번째 . 

REPEAT UNTIL 순환 2 번째 . 

REPEAT UNTIL 순환 3 번째 . 

REPEAT UNTIL 순환 4 번째 . 

REPEAT UNTIL 순환 5 번째 . 

REPEAT UNTIL 순환총회수: 5 번. 

3. 묶음 

Gambas 에서는 두가지 종류의 묶음을 사용할수 있다. 

첫번째 형태는 이미 Basic 언어에서 전통적으로 리용되던 형태로서 정적인 묶음을 말 
한다. 


형식 


DIM 변수이름[한계1, 한계2, .. 

. ] AS 자료형 


우와 갈은 형식의 묶음은 객체도 아니며 동적인 묶음도 아니다. 

즉 이러한 묶음들은 일단 선언되면 원소수를 더 늘이거나 없앨수 없으며 오직 선 
언된 묶음원소들에 대하여 값을 설정하거나 얻어낼수 있다. 

[실례 7] 

STATIC PUBLIC SUB MainO 
DIM I AS Integer 
DIM ii AS Integer 
DIM iii AS Integer 
DIM narMatrix [3, 3, 3] AS Integer 
FOR I = 0 TO 2 
FOR ii = 0 TO 2 
FOR iii = 0 TO 2 
PRINT i , ii , iii & " ==> "； 
narMatrixti , ii , iii ] = i *9 牛 ii *3 + iii 
PRINT narMatrix [ i , ii , iii ] 

NEXT 

NEXT 

NEXT 
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END 

결과 

0 0 0 ==> 0 


2 2 1 ==> 25 
2 2 2 ==> 26 

이 실례에서 묶음은 27개의 원소들에 0~26까지 범위의 옹근수가 차있다. 

다음 두번째 형 태는 JAVA 프로그람작성언어 에서 사용되는 묶음과 갈은 동적 인 묶음 
이다. 

형식 

DIM 변수이 름 AS NEW 자료형 [] 


즉 JAVA 언어에서처럼 묶음을 Integer []， String []， Object [] 分 DateQ ',, 
Variant □ 로 선언하면 묶음에 동적 으로 객 체(원소)를 더 추가하거 나 없 앨수 있 다. 

이 JAVA 형묶음들은 다만 1차원만을 가질수 있다. 

묶음은 선언되는 초기에 항상 빈것으로 초기화된다. 

그러므로 묶음처리를 위한 몇개의 메쏘드들도 있다. 

실례 로 동적 인 묶음변수에 객체(원소)를 추가하려면 add 메 쏘드를 리용하여 진행 할수 
있 다. 

배렬 변수이름. add (입력 값) 

다음 실례에서는 프로그람수행과정에 3개의 원소를 가진 묶음이 창조된다. 

[실례 8] 

DIM i AS Integer 
潔. = NEW Single [] 

FOR i = 0 TO 2 
ss . add ( i *2) 

PRINT " ss [" & I & "] = " & ss [ i ] 

NEXT 
결과 
ss [0]=0 
ss [ l ]=2 
as [2]=4 
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4. 집 합 


집합은 객체들의 묶음이 다. 

실례로 콘트롤들의 집합，자료기지들의 집합 등 많은 집합들이 있다. 

FOR EACH 명 령문을 리용하여 집합에 들어 있는 원소들을 하나하나 처 러 할수 있다. 


형삭 


FOR EACH 변수 IN 집합 .. 

, . NEXT 


FOR EACH 명령문은 집합에 있는 매 객체를 선택하는것과 동시에 그 개수만큼 순 
환을 진행한다. 

선택순서는 예견할수 없다. 

[실례 9] 

STATIC PUBLIC SUB MainO 
DIM MyDict AS NEW Collection 
DIM strElement AS String 
MyDict [" absolute "] = 3 
MyDict [" basic "] = 1 
MyDict [" carpet "] = 2 
FOR EACH strElement IN MyDict 
PRINT strElement & ", " : 

NEXT 

END 

결 과: 3, 1, 2, 

다음의 형식은 집합이 서로 구분되는 객체들을 포함하고있을 때 사용한다. 


형식 


FOR EACH 집합 . . 

NEXT 


실례로 자료기지질문의 결과객체를 들수 있다. 

[실례 10] 

DIM res AS result 

Res = DB . Exec ( “Select * From My table " ) 

For each Res 

Print Res ! code , Res!Name 
Next 

자료기지의 리용에 대하여서는 앞으로 구체적으로 보기로 한다. 
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5. 함수와 수속 

프로그람을 작성할 때 동일한 코드블로크내용이 각이한 장소에서 여러번 반복되는 
경우가 있게 된다. 이때 이 반복되는 부분을 함수나 틀로 따로 작성하여놓고 리용해 야 
할 장소에서 호출할수 있다. 

따라서 프로그람작성 에서 함수와 틀을 잘 리용하면 같은 코드를 여 러번 작성 할 펼 
요가 없으며 프로그람의 설계，코드작성，오유수정을 간단히 진행할수 있다. 

1) 함수 

함수는 수학에서의 함수개념과 마찬가지로 일정한 입구량에 대하여 결과값(출구 
량)을 가전다. 함수에는 Gambas 체계가 표준적으로 가지고있는 표준함수와 리용자가 
정의하여 리용할수 있는 리용자정의함수가 있다. 

프로그람을 작성할 때 필요한 표준함수는 리용만 하면 된다. 

개별적인 표준함수에 대하여서는 다음장들에서 구체적으로 보기로 한다. 

표준함수로 해결할수 없을 때에는 사용자정의함수를 만들어 리용한다. 

함수선언형식 

PUBLIC FUNCTION 함수이름(파라메터 1，파라메터 2,…) as 자료형 
명령문들 

return 식 
END 


여 기서 매 파라메 터들은《변수 as 자료형》의 형식으로 자료형을 지적해주어 야 한다. 


함수이 름(과라메 터 1，파라메 터 2, …) 


[실례 11] 

PUBLIC FUNCTION s(a AS single , b AS single , c AS single ) AS float 
Dim p as float 

If a + b>c and c + a>b and b + c>a then 
P =( a + b + c )/2 

S=sqr ( p * ( p - a ) * ( p - b ) * ( p - c )) 

Endif 

RETURNs 
END 

STATIC PUBLIC SUB mainO 
Dim ss as float 
ss = s (3,3,3) 

print “바른 3 각형의 면적” : ss 
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ss = s (3, 3, 5) 

print “2등변3각형의 면적” ； ss 
ss =(3, 4, 5) 

print “직3각형의 면적” ; ss 
END 

여기서 sqrO 는 두제곱뿌리를 계산하는 표준함수이지만 s () 는 3각형의 면적을 계 
산하는 사용자정 의 함수이다. 

2) 수속 

수속은 함수와 비슷하지만 결과값을 돌려주지 않는다는 점에서 차이가 있다. 

수속선언형식 

PUBLIC sub 수속이 름(파라메터 1 ，파라메터 2,…) 

명령문들 


매 파라메터들은 함수에서 처 럼 자료형 을 지적 하여주어 야 한다. 


수속이 름(파라메터 1, 파라메 터 2,…) 


[실례 12] 

PUBLIC FUNCTION s(a AS single , b AS single , c AS single ) AS float 
Dim p as float 

If a + b>c and c + a>b and b + c>a then 
P =( a + b + c )/2 

S=sqr ( p * ( p - a ) * ( p - b ) * ( p - c )) 

Endif 

RETURNs 

END 


PUBLIC SUB prn(str as string , s as float ) 
print str & “3 각형의 면적:” 技 s 


END 
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STATIC PUBLIC SUB mainO 
Dim ss as float 
ss = s (3,3,3) 
prn ( “바른” , ss ) 
prn ( “2 등변” , s (3,3,5)) 
prn ( “직” , s (3,4,5)) 

END 

이 실례에서는 실례 10에서 반복되는 부분을 prn 수속을 리용하여 간단히 하였다. 

이 프로그람은 간단한 프로그람이므로 수속을 리용한 우점 이 크게 알리지 않지만 
큰 프로그람인 경우 함수와 수속을 잘 러용하면 프로그람을 간단히 구조화할수 있으며 
개발에서 편리하다. 
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제 4 장. 문자렬조종과 자료형변환 

프로그람작성과정에 문자렬처리와 자료형을 변환시켜야 할 경우에 자주 부딪치게 
된 다. 

따라서 프로그람을 작성할 때 문자렬조종과 자료형변환에 대하여 개발언어가 제공 
하는 표준함수들을 잘 리용하는것 이 매우 중요하다. 

주어진 함수들을 능숙하게 활용할수록 더 효과적 인 프로그람을 작성할수 있다. 

1 . 문자렬조종함수 

Gambas 에는 많은 문자렬함수들이 있다. 

이 장에서는 조작탁대면부를 리용하여 다음과 같은 표준함수들에 대하여 학습하게 
된 다. 


① Len 

형식 

Len (문자렬) 


돌려주는 값은 옹근수이 다. 

Len 은 문자렬의 길이를 돌려준다. 


[실례 1] 

STATIC PUBLIC SUB MainO 
DIM iStringLength AS Integer 
DIM sTestString AS String 
sTestString = "12345678901234567890" 
sStringLength = Len ( sTestString ) 

PRINT "==> " & iStringLength & "은 첫 검사문자렬의 길 이 ’’ 
sTestString = "12345" 
iStringLength = Len ( sTestString ) 

PRINT "==> " & iStringLength & " 은 두번째 검사문자렬의 길 이 
sTestString = "12345678901" 
iStringLength = Len ( sTestString ) 

PRINT "==>" & iStringLength & ’’ 은 세번째 검사문자렬의 길이" 


END 


0활활 0활■할■활 


43 








Gambas 프포그람작성 7 f 초 


결과 

==> 20 은 첫 검사문자렬의 길이 
==> 5 은 두번째 검사문자렬의 길이 
==> 11 은 세 번째 검사문자렬의 길 이 
[주의] 

Len 함수로 문자렬의 길이를 셀 때 C 언어나 일부 다른 언어에서처럼 0위치에서가 
아니라 첫위치에서부터 세기 시작한다. 

다음은 문자렬들사이의 변환에 대하여 보자. 

② Upper $/ Ucase $/ Ucase 와 Lower $/ Lcase$/Lcase 

형식 

Upper $ (문자렬) 

UCase $ (문자렬) 


돌려주는 값은 문자렬이 다. 

Upper $ 는 문자렬을 대문자로 변환시킨다. 

Ucase 도 Upper$5f 득같이 리용할수 있다. 
Lower $ 는 문자렬을 작은 글자로 변환시킨다. 
1乂고36$와 Lease 도 1乂)짜라$와 득같이 리용할수 있다. 

[실례 幻 

STATIC PUBLIC SUB MainO 
DIM sStringLength AS Integer 
DIM sTest AS String 


sTestString = 
PRINT "==> ’ 
PRINT "==> T 
PRINT "==> ’ 
PRINT ，'==> ’ 


" abedefg " 

& sTest & " 는 시작문자렬이다. ” 

& UCase $( sTest ) & "는 대문자로 된 문자렬 이 다. ’’ 

& LCase $( sTest ) & "는 소문자로 된 문자렬이 다. ” 

& UpperS ( sTest ) & "는 다시 대문자문자렬로 되였다. 


sTestString = 


'123 abc 456 def 789 ghiZZZ ' 


PRINT ’’==> 
PRINT "==> 
PRINT "==> 
PRINT "==> 
PRINT ’’==> 


& sTestString & "： 두번째검사문자렬 
技 UCase ( sTestString ) 技 ":대문자문자렬.” 

& LCase ( sTestString ) & 소문자문자렬 

& Upper ( sTestString ) 沒 ":대문자문자렬로 변환.” 
& Lower $( sTestString ) & ":소문자문자렬로 변환. 
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END 

결과 

==> abcdefg 는 시작문자렬 이 다. 

==> ABCDEFG 는 대 문자로 된 문자렬 이 다. 

==> abcdefg 는 소문자글자로 된 문자렬 이 다. 

==> ABCDEFG 는 다시 대문자문자렬로 되 였다. 

==> 123 abc 456 def 789 ghiZZZ ： 두번째검사문자렬. 

==> 123 ABC 456 DEF 789 GHIZZZ : 대문자문자렬. 

여> 123 abc 456 def 789 ghizzz : 소문자문자렬. 

==> 123 ABC 456 DEF 789 GHIZZZ : 대문자문자렬로 변환. 
— > 123 abc 456 def 789 ghizzz : 소문자문자렬로 변환. 

(3) Trlm$, LTrim$, RTrim$ 

형식 

Trim $ (문자렬) 


돌려주는 값은 문자렬 이 다. 

Trim $ 은 문자렬의 량끝에서 모든 공백 을 없애버린다. 
LTrim $ 은 문자렬의 왼쪽끝에서 모든 공백을 없애버린다. 
RTrim $ 은 문자렬의 오른쪽끝에서 모든 공백을 없애버린다. 
Trim $ 은 Ltrim $ 과 Rtrim $ 을 동시 에 호출하는 셈 이 다. 


[실례 却 

STATIC PUBLIC SUB MainO 
DIM sTestString AS String 
DIM sResult AS String 
DIM iLength AS Integer 


PRINT " 1 2" 

PRINT "12345678901234567890" 
sTestString = " < abcdef > " 
iLength = Len ( sTestString ) 

PRINT sTestString & " : 검 사문자렬 ." 

PRINT "검사문자렬의 길이: " & Str $( iLength ) 
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sResult = T rim $ ( sTestString ) 

PRINT sResult & "는 검사문자렬을 Trim $ 로 호출한 결과이다. 
END 
결과 

1 2 

12345678901234567890 
< abcdef > : 검 사문자렬 . 

검사문자렬의 길이: 14 

< abcdef > 는 검사문자렬을 Trim $ 로 호출한 결과이다. 

④ Left $ 


형식 


Left $ ( 문자렬 [ 

, 길이 ]) 


돌려주는 값은 문자렬이 다. 

Left $ 는 문자렬의 첫위치에서부터 지적된 길이만큼의 문자렬을 돌려준다. 

만일 길이를 지적하지 않으면 문자렬의 첫 문자를 돌려주며 길이가 부수로 주어지 
면 길 이 만큼을 제 외 한 나머 지문자렬을 돌려 준다. 

⑤ Mid $ 


형식 


Mid $ ( 문자렬, 시작 [ 

，길이]) 


돌려 주는 값은 문자렬이 다. 

Mid $ 는 문자렬에서 지적한 시작위치로부터 지적한 길이만큼을 포함하는 부분문자 
렬을 돌려준다. 

길이가 지적되지 않으면 시작위치로부터의 모든 문자렬을 돌려주며 길이가 부수이 
면 시작위치로부터 지적한 길이만큼의 마지막 문자렬을 제외한 나머지 문자렬을 돌려 
준다. 

⑥ Right $ 


형식 


Right $ ( 문자렬 [ 

，길이]) 


돌려주는 값은 문자렬이 다. 

Right $ 는 문자렬의 마지막에서부터 지적한 길이만큼의 문자렬을 돌려준다. 
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길이가 지적되지 않으면 제일 마지막기호를 돌려주며 길이가 부수로 지적되면 전 
체 문자렬에서 앞으로부터 지적한 길이만큼의 문자렬을 제외한 나머지 문자렬을 돌려 
준다. 


[실례 4] 

STATIC PUBLIC SUB MainO 
DIM sTestString AS String 
DIM sResult AS String 
DIM iLength AS Integer 


PRINT " 1 2" 

PRINT "12345678901234567890" 
sTestString = " abcdefghi " 
iLength = Len ( sTestString ) 

PRINT sTestString & " : 검 사문자렬 ." 

PRINT "검사문자렬의 길이는: " & Str $( iLength ) & "이다." 
sResult = Left $ ( sTestString , 3) 

PRINT sResult & " 는 검사문자렬에 대하여 1上打$를 호출한 결과” 
sResult = Mid $( sTestString , 4, 3) 

PRINT sResult & " 는 검사문자렬에 대하여 ■선$를 호출한 결과" 
sResult = Right ( sTestString , 3) 

PRINT sResult & " 는 검사문자렬에 대하여 묘迫산$를 호출한 결과" 
END 
결과 

1 2 

12345678901234567890 
abcdefghi : 검사문자렬. 

검사문자렬의 길이는: 9 이다. 
abc 는 검사문자렬에 대하여 1^:託$를 호출한 결과 
def 는 검사문자렬에 대하여 보년$를 호출한 결과 
ghi 는 검사문자렬에 대하여 호출한 결과 

⑦ SpaceS 

형삭 

Space $ ( 길이 ) 
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Space $ 는 주어진 길이만한 공백을 문자렬로 돌려준다. 
[실례 5] 

STATIC PUBLIC SUB MainO 
DIM sTestString AS String 
DIM sResult AS String 

PRINT " 1 2" 

PRINT "12345678901234567890123456" 
sTestString = " a " 

PRINT sTestString & Space $(24) & " z " 
END 
결과 

1 2 

12345678901234567890123456 


⑧ Replaces 

형식 

Replaces ( 문자렬，패턴，교체문자렬 ) 


돌려주는 값은 문자렬이 다. 

Replace $ 는 문자렬에서 패런과 일치하는 문자들을 교체문자렬로 교체하고 그 결 
과를 돌려준다. 문자렬이 비 여있으면 공백문자렬을 돌려주며 패 턴이 비 여있으면 문자 
렬 이 그대로 돌려진다. 

[실례 的 

STATIC PUBLIC SUB MainO 
DIM sTestString AS String 
DIM sResult AS String 


sTestString = " abcl 23 ghi " 

PRINT sTestString 技 " :검사문자렬 
sResult = Replaces ( sTestString , "123", " def ") 
PRINT sResult & ": Replace 함수를 호출한 결과이 다. 
sTestString = "a b c d e f g h i " 

PRINT sTestString & " :검사문자렬 
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sResult = Replace $( sTestString , " ", "-") 

PRINT sResult & ": Replace 함수를 호출한 결과이 다. ” 
sTestString = "\ ta \ tb \ tc \ tdef " 

PRINT sTestString & " :검사문자렬 
sResult = Replace $ ( sTestString , "\ t ", "") 

PRINT sResult & ": Replace 함수를 호출한 결과이 다. 
END 
결과 

abcl 23 ghi :검사문자렬 

abcdefghi : Replace 함수를 호출한 결과이다. 

abcdef g h i :검사문자렬. 

a - b - c - d - e - f - g - h - i ： Replace 함수를 호출한 결과이다. 

a b c def :검사문자렬. 

abcdef : Replace 함수를 호출한 결과이다. 

졌 문자렬 에 서 《\ t 》 는 Tab 를 의 미 한다. 

⑨ StringS 

형삭 

String $ (반복회수, 패턴) 


String $ 는 패턴을 지적한 수만큼 반복하여 만든 문자렬을 돌려준다. 
[실례 7] 

STATIC PUBLIC SUB MainO 
DIM sTestString AS String 
DIM sResult AS String 
PRINT " 1 2” 

PRINT "12345678901234567890123456" 
sTestString = " a " 

PRINT sTestString 冬 String $(24, 沒 " z " 

END 

결과 

1 2 

12345678901234567890123456 
a . z 
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⑩ Subst$ 

형식 

Subst$ (패런, 교체문자렬 [, 교체문자렬 ]) 


Subst$ 는 패 런에서 &1, &2를 대응하는 차례로 교체문자렬로 각기 교체하여 그 결 
과를 돌려준다. 

이 함수는 문자렬들에서 일부 부분을 교체하여 련결해야 할 때 대단히 쓸모있다. 

[실례 8] 

STATIC PUBLIC SUB MainO 
DIM sTestString AS String 
DIM sResult AS String 
sTestString = "abcdef" 
sResult = "ghijkl" 

PRINT "검사문자렬 : " & sTestString 

PRINT Subst$(” 교체하는 문자렬은: &1", sResult) 

END 

결과 

검사문자렬: abcdef 
교체하는 문자렬은: ghijkl 
© InStr 


형식 


InStr( 문자렬，부분문자렬 I 

, 시작위치 1) 


문자렬 에 서 왼쪽으로부터 부분문자렬 을 탐색 하여 첫 위 치 를 옹근수값으로 돌려 준다. 

만일 시작위치를 지적하면 시작위치로부터 찾기 시작하며 부분문자렬을 찾지 못하 
면 령을 돌려준다. 

[실례 的 

다음의 코드를 통하여 이 함수의 기능에 대하여 잘 알수 있다. 

프로그람에서는 매 공백의 위치를 찾아서 그 위치를 표시하려고 한다. 

’ Gambas class file 
STATIC PUBLIC SUB MainO 
DIM sTest AS String 
DIM sResult AS String 
DIM iLength AS Integer 
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DIM iPosition AS Integer 
DIM iNextCharPos AS Integer 
DIM iCounter AS Integer 


sTest= "abc def ghi" 
iPosition = InstrCsTest," ") 

PRINT sTest & 검사문자렬 ” 

PRINT " 첫 공백의 위 치 : " & iPosition 
iNextCharPos - iPosi 仕 on + 1 
iPosition = Instr(sTest ， " ".iNextCharPos) 
PRINT "다음 공백의 위치 : ” & iPosition 
END 
결과 

abc def ghi : 검사문 자렬 
첫 공백의 위치 : 4 
다음 공백의 위 치 : 8 
⑫ RinStr 

형삭 

RinStr ( 문자렬，부분문자렬 [，시작 ] ) 


RinStr 는 문자렬에서 오른쪽에서부터 부분문자렬을 탐색하고 그의 첫위치를 돌려 
준다 . 

만일 시작위치가 지적되면 탐색은 시작위치에서 멎으며 부분문자렬을 찾지 못하면 
령값을 돌려준다 . 


[실례 10] 

STATIC PUBLIC SUB MainO 
DIM sTestString AS String 
DIM iPosition AS Integer 
sTestString = "abc def abc def abc" 

PRINT " 1 2" 

PRINT "12345678901234567890" 

PRINT sTestString 

iPosition = RInstr (sTestString, "abc") 

PRINT 

PRINT "문자렬 abc 의 오른쪽 첫 위 치 : " & iPosi 仕 on 
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END 

결과 

1 2 
12345678901234567890 
abc def abc def abc 


문자렬 abc 의 오른쪽 첫 위 치 : 17 


⑬ Split 


형식 


Split( 문자렬 1 

, 분리기호 , 생 략기호 ] ) 


Split 는 분리기 호를 리용하여 문자렬을 분리하고 분리된 부분문자렬묶음을 돌려준다 . 
분리 과정 에 문자렬 에 서 생 략기 호들은 제 거 된다 . 

Split 함수는 오직 3 개의 파라메터만을 취 할수 있으므로 여 러 개의 분리 기 호를 사용 
하려고 할 때 에는 그 기호들을 련결하여 두번째 파라메터 로 지적해 야 한다 . 

표준적 으로는 반점 기 호가 분리 기 호이 며 생 략기 호는 없 다 . 

[실례 11] 

STATIC PUBLIC SUB MainO 
DIM aWordArray AS String [] 

DIM sWord AS String 
’ 공백을 분리기호로 한다 . 

’，을 생략기호로 한다 . 

aWordArray = SplitC'This is feature of ’Gambas!’"，” 

FOR EACH sWord IN aWordArray 
PRINT sWord 
NEXT 
END 
결과 
This 
is 

feature 

of 

Gambas! 
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2. 자료령변환함수 

① Asc 




Asc (문자렬 [ 

, 위치 ]) 


Asc 는 문자렬에서 지적한 위치에 있는 문자의 ASCII 코드값을 돌려준다 . 
위치가 지적되지 않으면 첫 문자의 ASCII 코드값을 돌려준다 . 

② Chr$ 

형식 

Chr$ (코드：) 


Chr $ 는 ASCII 코드값에 해 당한 문자를 돌려 준다 . 


[실례 12] 

’ Gambas class file 
STATIC PUBLIC SUB MainO 
DIM iCode AS Integer 
DIM sTestString AS String 
DIM iLength AS Integer 
DIM counter AS Integer 
sTestString = "Gambas is great." 
iLength = Len (sTestString) 

PRINT "문자렬의 길이 :" & Str$(iLength) 

FOR counter = 1 TO iLength 
iCode = Asc (sTestString, counter) 

IF iCode <> 32 THEN 

PRINT iCode & " 의 문자 : ” & Chr(9) & Chr$(iCode) 
ELSE 

PRINT iCode & '，의 문자 : " & Chr(9) & " 〈공백 〉” 
ENDIF 
NEXT 
END 

결과 

문자렬의 길이 : 16 
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기의 문자 : G 

97 의 문자 : a 
109 의 문자 : m 

98 의 문자 : b 
97 의 문자 : a 
115 의 문자 : s 

32 의 문자 : 〈공백〉 

105 의 문자 : i 

115 의 문자 : s 
32 의 문자 : 〈공백〉 

103 의 문자 : g 
114 의 문자 : r 
101 의문자 : e 
97 의 문자 : a 

116 의 문자 : t 

46 의 문자 : . 

※ 우의 실례에서 Chr(9 ) 는 TAB 문자를 표현하는데 리용된다 . 
③ Bin$ 

형식 

Bin$ (수 [ , 자리수 ] ) 


주어진 수를 2 진수로 변환하여 돌려준다 . 

만일 자러수가 지적되면 그 자리수에 해당하여 령까지 첨가한 수형태를 보여준다 . 
[실례 13] 

STATIC PUBLIC SUB MainO 
DIM sBinaryCode AS String 
DIM counter AS Integer 
FOR counter = 0 TO 15 
sBinaryCode = Bin$ (counter, 4) 

PRINT sBinaryCode 
NEXT 
END 
결과 
0000 
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0001 

0010 

0011 

0100 

0101 

0110 

0111 

1000 

1001 

1010 

1011 

1100 

1101 

1110 

1111 

④ CBool 

형삭 

CBool ( 식 ) 


CBool 은 식에 대한 론리값을 돌려준다 . 

만일 다음과 같은 조건들을 만나면 false 값을 돌려준다 . 

• 식이 론리부정값을 가질 때 

• 식의 값이 령일 때 

• 문자렬의 길이가 령일 때 

• 객체가 비 여있을 때 

이 밖의 경우에 함수는 true 값을 돌려준다 . 

[실례 14] 

STATIC PUBLIC SUB MainO 
PRINT CBool (0) : ； CBool (1) 

END 

결과 

FALSE TRUE 
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⑤ CByte 


형식 

CByte ( 식 ) 


CByte 는 식을 바이트형으로 변환한 값을 돌려준다 . 

식은 먼저 옹근수형으로 변환된다 . 

다음 이 옹근수값이 바이 트값범 위 (-32 767 - 32 768) 를 벗 어 나면 끝부분이 생 략된다 . 
[실례 15] 

STATIC PUBLIC SUB MainO 
PRINT CByte("17") 

PRINT CByte (32769) 

PRINT CByte (TRUE) 

END 

결과 

17 

1 

255 
⑥ CDate 

형식 

CDate ( 식 ) 


CDate 는 식을 날자/시간형으로 변환하여 돌려준다 . 
[실례 16] 

STATIC PUBLIC SUB MainO 
DIM sDateString AS String 
sDateString = CDate (Now) 

PRINT sDateString ； " : 시작시간 .’’ 

WAIT 1.0 

PRINT CDate (Now )； " ： 1S 지연되였습니다 . 
PRINT CDate (sDateString) : " : 시 작시 간 . " 
WAIT 1.0 

PRINT Now ； " 2S 지연되였습니 다 . " 

END 
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결과 

01/21/2008 20:52:40 : 시작시간 . 
01/21/2008 20:52:41 ： 1S 지연되였습니 다 . 
01/21/2008 20:52:40 : 시작시간 . 
01/21/2007 20:52:42 ： 2S 지연되였습니 다 . 
⑦ CFloat 

형식 

CFloat ( 식 ) 


식을 류동소수형 태로 변환한다 . 

[실례 17] 

STATIC PUBLIC SUB MainO 
DIM sFloatString AS String 
DIM fFloatNum AS Float 


sFloatString = "0.99" 
fFloatNum = 0.01 


PRINT fFloatNum + CFloat (sFloatString) 
PRINT CFloat("3. OE+3") 

END 

결과 

3000 

⑧ CInt/Cinteger 

형삭 

CInt ( 식 ) 

Cinteger ( 식 ) 

Cint 는 Cinteger 와 류사하다 . 

두 함수는 식을 모두 옹근수로 변환한다 . 

⑨ CShort 

형식 

CShort ( 식 ) 
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CShort 는 식을 짧은 옹근수형으로 변환한다 . 

식은 먼저 옹근수형으로 변환된 다음 이 옹근수값이 짧은 옹근수범위를 벗어나면 
뒤부분이 생략된다 . 

다음의 실례는 실례 15 를 약간 수정한것 이다 . 

[실례 18] 

STATIC PUBLIC SUB MainO 
DIM sFloatString AS String 
DIM fFloatNum AS Float 


sFloatString = "0.99" 
fFloatNum = 120.901 


PRINT fFloatNum + CFloat (sFloatString) 

PRINT CInt(fFloatNum) : " 은 옹근수형 으로 변환되 였습니 다 . " 
PRINT CShort (fFloatNum) : " 은 짧은 옹근수형 으로 변환되 였 다 . 
END 
결과 
121.891 

120 은 옹근수형으로 변환되였습니다 . 

120 은 짧은 옹근수형으로 변환되였다 . 

⑩ CStr/CString 
형식 

CStr ( 식 ) 

CString ( 식 ) 


CStr/Cstring 은 식을 문자렬로 변환한다 . 

[실례 19] 

STATIC PUBLIC SUB MainO 
DIM sFloatString AS String 
DIM fFloatNum AS Float 
fFloatNum = 120.901 
sFloatString = CStr (fFloatNum) 

PRINT sFloatString ； " 는 현재 문자렬이 다 . 

END 
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결과 : 120. 901 는 현재 문자렬이다 . 
⑪ Hex$ 


형식 


Hex$ (수 [ 

，자러수 ]) 


Hex $ 는 수식을 16 진수로 변환하여준다 . 

만일 자리 수가 지적 되면 그 자리 수에 해 당하여 령 까지 첨 가한 수형 태를 보여 준다 . 
[실례 20] 

STATIC PUBLIC SUB MainO 
DIM counter AS Integer 


FOR counter = 1 TO 15 
PRINT Hex$ (counter, 2) : " "； 

NEXT 

END 

결과 

01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E OF 
⑫ Conv$ 

형삭 

Conv$ ( 문자렬 , 문자코드 1, 문자코드 2) 

Conv $ 는 문자렬을 첫 문자코드로부터 두번째 문자코드로 변환한다 . 

문자코드는 ” ASCII，’, "ISO-8859-1", ”UTF_8”, ”EBCDIC_US ，’ 과 같이 문자렬로 
표현할수 있다 . 

Gambas 해 석 자는 내 부에 《 UTF-8 > 문자코드를 리 용하고있 다 . 

체계에서 리용되는 문자코드는 체계호출에 의하여 알아낼수 있다 . 

Mandrake9.2 연산체계에서 러용되는 문자코드는 《 IS08859-1 》이며 RedHat 
Linux 연산체계 에서 리용되는것은 《 UTF-8 》 문자코드이 다 . 

앞으로 거 의 모든 Linux 체 계 들은 아마도 《 UTF-8 》 문자코드에 기 초할것 으로 보 
고있 다 . 


[실례 21] 

STATIC PUBLIC SUB MainO 
DIM sStr AS String 
DIM ilnd AS Integer 
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sStr = Conv$("Gambas", "ASCII", "EBCDIC-US") 
FOR ilnd = 1 TO Len(sStr) 

PRINT Hex$(Asc(Mid$(sStr, ilnd, 1)3, 2 )； " "； 
NEXT 
END 
결과 

C7 81 94 82 81 A2 
⑬ Val 

형식 

Val ( 문자렬 ) 


Val 함수는 문자렬의 내용에 따라 문자렬을 론리형，수자 혹은 날자형으로 변환한다 . 
변환알고리듬은 다음과 같다 . 

만일 문자렬이 날자 혹은 시간으로 해석되면 날자/시간형식으로 변환하며 문자렬 
이 류동소수로 해석되면 류동소수로 변환한다 . 또한 옹근수로 해석되면 옹근수로 변환 
한다 . 문자렬이 TRUE 혹은 FALSE 이면 론리형값으로 변환한다 . 

이외의 모든 경우에는 NULL 값을 돌려준다 . 

⑭ Str$ 

형식 

Str$ ( 식 ) 


Str $ 함수는 식 을 인쇄할수 있는 문자렬 식 으로 변환한다 . 
즉 Val () 과는 반대 이 다 . 

[실례 22] 

STATIC PUBLIC SUB MainO 
DIM sDateTime AS String 
DIM dDate AS Date 


PRINT Now ； " :현재 체계시간 ." 
sDateTime = Str$ (Now) 

PRINT sDateTime ； " :현재 체계시간을 문자렬로 변환 .’’ 

PRINT Val (sDateTime )； " :문자렬을 VAL 함수를 리용하여 변환 . 
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dDate = Val(sDateTime) 

PRINT dDate； " : VAL 함수에 의하여 날자형으로 변환. 
PRINT Str(dDate)； " :날자형을 문자렬형으로 변환.” 
END 


결과 


08/21/2005 21:42:45 
08/21/2005 21:42:45 
08/21/2005 21:42:45 
08/21/2005 21:42:45 
08/21/2005 21:42:45 


:현재 체계시간. 

:현재 체계시간을 문자렬로 변환. 

:문자렬을 VAL 함수를 리용하여 변환. 
: VAL 함수에 의하여 날자형으로 변환. 
:날자형을 문자렬형으로 변환. 


⑮ Formats 


형식 


Formats ( 식 [ 

, 형식화ᄌ) 


Format$ 함수는 식을 형식화를 리용하여 문자렬로 변환한다. 

형식화파라메터는 옹근수상수로 지적한 값과 사용자정의형식(문자렬로 표현된것) 
을 결합하여 지적할수 있다. 

사용자정의형식은 다음과 갈은 형식화문자들을 리용하여 정의할수 있다. 

표 4-1. 형 식 화 기 至 


형 식 화문자 

의 미 


수자의 부호를 표시한다. 


수자가 부수일 때만 부호를 표시한다. 

T 

필요하다면 수자만을 표시한다. 

"0" 

필요하다면 령까지 채운 자러수에 해당하여 표시한다. 


소수점을 찍는다. 

T 

수에 100을 곱하고 %기 호를 표시한다. 

” E ” 

류동소수의 지수부분을 표시 한다. 그리고 지수부의 부호는 
항상 표시한다. 

”yy” 

두자리 수를 리용하여 년을 표시한다. 

” yyyy” 

네자리수를 리용하여 년을 표시한다. 

’’m” 

달을 표시한다. 

”mm” 

두자리수를 리용하여 달을 표시한다. 


3문자 생 략문자렬 형 식 으로 달을 표시한다. 

"mmmm" 

달의 이 름을 이 름그대 로 표시한다. 
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” d ” 

날자를 표시한다 . 

"dd" 

두자리수를 리용하여 날자를 표시 한다 . 

"ddd" 

생 략된 형식 으로 요일을 표시 한다 . 

"dddd" 

요일을 이름그대 로 표시 한다 . 

V" 

날자분리기 호를 표시 한다 . 

"h" 

시를 표시한다 . 

"hh" 

두자리를 리용하여 시를 표시한다 . 

"n !, 

분을 표시한다 . 

"nn ,f 

두자리수로 분을 표시 한다 . 

’’s’’ 

초를 표시한다 . 

”ss” 

두자리수로 초를 표시한다 . 

” :，， 

시간분리기 호를 표시한다 . 


[실례 23] 

STATIC PUBLIC SUB MainO 
PRINT "수 형식화의 실례 : ” 

PRINT Format$(Pi, "-#.###") 

PRINT Formats (Pi, "+0#.###0") 

PRINT Format$(Pi / 10, "###.# %") 

PRINT Formats(-11 ~ 11, "#.##■”) 

PRINT 

PRINT " 날자 , 시간형식화의 실례 :” 

PRINT 

PRINT Formats (Now, "mm/dd/yyyy hh ： nn ： ss") 
PRINT Formats (Now, "m/d/yy h ： n ： s") 

PRINT Formats (Now, "ddd dd mmm yyyy") 
PRINT Formats (Now, "dddd dd mmmm yyyy") 
END 
결과 

수 형식화의 실례 : 

3.142 
+03.1416 
31.4 % 

-2.85E+11 
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날자，시간형식화의 실례 : 

08/21/2005 21:55:14 
8/21/05 21:55:14 
Sun 21 Aug 2005 
Sunday 21 August 2005 


3. 자료형검사함수 

변수를 처리할 때마다 어떤 자료형인가를 아는것이 중요하다 . 
Gambas 는 그러한 처리를 위해 일정한 함수묶음을 제공하고있다 . 


표 4-2. _ 자료형검사한十 - 


함수형식 

의미 

IsBoolean ( 식 ) 

론리 형인가 ? 

IsByte ( 식 ) 

바이 트형 인가 ? 

IsDate ( 식 ) 

날자형 인가 ? 

IsFloat ( 식 ) 

류동소수형인가 ? 

Islnteger( 식 ) 

옹근수형인가 ? 

IsNull ( 식 ) 

비였는가 ? 

IsNumber ( 식 ) 

수자형 인가 ? 

IsObject ( 식 ) 

객체 형인가 ? 

IsShort ( 식 ) 

짧은옹근수형인가 ? 

IsString ( 식 ) 

문자렬형 인가 ? 


만일 식의 자료형이 요구하는 자료형이면 주어진 함수는 TRUE 값을 돌려주고 그 
렇지 않으면 FALSE 값을 돌려준다 . 

[실례 24] 

’ Gambas class file 
STATIC PUBLIC SUB MainO 
DIM slnputLine AS String 
DIM value AS Variant 
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DO WHILE slnputLine <> "quit" 

PRINT ” ==> ，’; 

LINE INPUT slnputLine 
IF slnputLine = "" THEN 
slnputLine = "<CRLF>" 

ENDIF 

PRINT " 입구자료 : slnputLine 

value = Val (slnputLine) 

PRINT 

IF IsBoolean (value) THEN 

PRINT slnputLine ； " : 론리형 .’’ 

ELSE IF IsDate (value) THEN 
PRINT slnputLine ； ” : 날자형 ." 

ELSE IF Islnteger (value) THEN 
PRINT slnputLine ； ” : 옹근수형 ." 

IF value = 0 OR value = 1 THEN 
PRINT ":론리형도 된다 . " 

ENDIF 

IF value > 0 AND value < 255 THEN 
PRINT ":바이트형도 된다 . " 

ENDIF 


IF value > -32767 AND value < 32768 THEN 
PRINT ":짧은 옹근수형도 된다 . ’’ 

ENDIF 

PRINT 

ELSE IF IsFloat (value) THEN 
PRINT slnputLine ； " : 류동소수형 ." 

ELSE IF IsString (value) THEN 
PRINT slnputLine ； " : 문자렬형 .’’ 

ELSE IF IsNull (value) THEN 
PRINT slnputLine ； " : NULL." 

ELSE 

PRINT slnputLine ； " : 기 타 자료형 . " 
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ENDIF 

LOOP 

PRINT 

PRINT ’’이상 끝 !” 

END 

결과 

==> true 
입구자료 : true 

true : 론리형 . 

==> 214 
입구자료 : 214 

214 : 옹근수형 . 

:바이트형도 된다 . 

:짧은 옹근수형도 된다 . 

==> 08/23/05 12:23:55 
입구자료 : 08/23/05 12:23:55 
08/23/05 12:23:55 : 날자형 . 
==> John 
입구자료 : John 

John : 문자렬형 . 

==> -32756 
입구자료 : -32756 

-32756 : 옹근수형 . 

:짧은 옹근수형도 된다 . 

==> quit 
입구자료 : quit 
quit : 문자렬형 . 


이상 끝 ! 
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⑯ TypeOf 

형식 

TypeOf ( 식 ) 

TypeOf 는 식의 자료형을 옹근수값으로 돌려준다 . 
Gambas 는 자료형에 대한 상수값들을 미리 정의하고있 다 . 
그 상수들은 다음과 갈다 . 


■ 4-3. 정의된 자豆형상수들 


자료형 상수 

값 

gb.Null 

빈 값 

gb. Boolean 

론리형 

gb.Byte 

바이 트형 

gb. Short 

짧은 옹근수형 

gb. Integer 

옹근수형 

gb. Float 

류동소수형 

gb. Date 

날자/시간형 

gb. String 

문자렬형 

gb. Variant 

변화형 

gb. Object 

객체형 
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체 5 장. 수학연산 


Gambas 에서 수학연산은 표준함수들과 유도된 함수들을 리용하여 진행된다 . 

표준함수는 보통 프로그람작성 언어의 콤파일 러 에 내 장되 여있으며 특정 한 CPU 의 
특징을 살릴수 있는 우점을 가지고있다 . 

Gambas 에서 를파일러의 최량화와 코드발생은 표준함수들을 충분히 집약화하였으 
며 따라서 계산에서 놀라운 속도를 보장하고있다 . 

유도함수들은 한편 이미 알려진 수학공식들과 알고리듬을 표준함수들에 적용하여 만 
든것이다 . 일부 유도함수들의 표와 그에 대응하는 공식들은 이 장의 마지막부분에서 볼 
수 있다 . 

1. 연산순서 

식을 리용하여 연산을 진행할 때에는 특별히 정해진 연산순서가 있다 . 

연산순서는 다음과 같다 . 

• 괄호안에 있는 모든 식 

• 지수연산은 왼쪽에서부터 오른쪽순서로 

• 곱하기와 나누기연산은 왼쪽에서부터 오른쪽순서로 

• 더하기와 덜기연산은 왼쪽에서부터 오른쪽순서로 

연산순서 를 명 심하면서 프로그람에 서 요구되 는 수학연산을 진행 하자면 함수들을 
잘 리용하여야 한다 . 

그러면 먼저 표준함수들에 대하여 그 리용방법을 실례를 들면서 설명하자 . 

2. 표준함수 


① AbsO 

형식 

Abs ( 수 ) 


Abs 함수는 수의 절 대 값을 돌려 주는 표준함수이다 . 

수인수는 임의의 값을 가지는 수식이 될수 있다 . 

만일 수인수로 지적된 변수가 초기화 된 경우에는 령을 돌려준다 . 


[실례 幻 

STATIC PUBLIC SUB MainO 
DIM MyNum AS Variant 
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DIM x as float 
MyNum = Abs(1.03E3) 
PRINT MyNum 
MyNum = Abs(2.5_6.5) 
PRINT MyNum 
END 
결과 
1030 
4 
0 

② ACsO/ACosO 
형식 

ACs ( 수 ) 

ACos ( 수 ) 


ACs()/ACos () 함수는 수의 거꿀코시누스 (arccos ) 를 계산하는 함수이 다 . 
수의 뜻구역은 £1,1] 이 다 . 

수값은 라디 안으로 표시해 야 하며 계산값도 라디 안으로 표시된다 . 

[실례 21 

PRINT Acs(0.5) 

1.047197551197 


PRINT Acs(l) 
3.14159265359 
③ AcshO/ACoshO 
형식 

Acsh ( 수 ) 
ACosh ( 수 ) 


AcshOMCoshO 는 함수는 수의 거 끌쌍곡코시 누스를 계 산하는 함수이다 . 
수인수는 라디 안으로 표시하며 계산값은 라디 안으로 표시된다 . 

뜻구역 은 X >= 1 의 모든 실수값을 포함한다 . 

값구역은 Y >= 0 이 다 . 
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[실례 3] 

STATIC PUBLIC SUB MainO 
DIM y AS Variant 
Y = 2 

PRINT Acsh(Y) 

END 

결과 : 1.316957896925 
④ AsnO/ASinO 

형삭 

Asn ( 수 ) 

ASin ( 수 ) 


이 함수는 수의 거물시누스를 계산하는 함수이 다 . 

뜻구역은 DU1] 으로서 라디 안으로 주며 값구역도 라디 안으로 표시된다 . 

[실례 4] 

STATIC PUBLIC SUB MainO 
DIM y AS Variant 

Y = 0.5 
PRINT Asn(Y) 

Y = -1.0 
PRINT Asn(Y) 

END 

결과 

0.523598775598 
1.570796326795 
⑤ AsnhO/ASinhO 
형식 

Asnh ( 수 ) 

ASinh ( 수 ) 

AsnhO/ASinhO 함수는 수의 거끌쌍곡시누스를 계산하는 함수이다 . 

뜻구역과 값구역의 모든 값들은 라디 안으로 표시된다 . 

[실례 5] 

STATIC PUBLIC SUB MainO 


0 활활 0 활■할■활 


69 









Gambas 프포그 fj •작성 7 f 초 


■ 


DIM y AS Variant 
Y = 2 

PRINT Asnh(2) 
END 
결과 

1.443635475179 
⑥ Atn()/ATan() 

형식 

Atn ( 수 ) 

ATan ( 수 ) 


Al:n()/ATanO 함수는 수의 거물탕겐스 (arctan) 값을 계산하는 함수이다 . 
표의 실수값에 대하여 함수는 [tc/2, tt/2 ] 범위의 값을 돌려준다 . 

모든 값은 라디 안으로 표시된다 . 

[실례 6] 

STATIC PUBLIC SUB MainO 
DIM y AS Variant 

Y = 0.5 

PRINT ATan(Y) 

END 

결과 

0.463647609001 
⑦ Atnh()/ATanh() 

형식 

Atnh ( 수 ) 

ATanh ( 수 ) 

Atnh()/ATanh() 함수는 수의 거 끌쌍곡탕겐스를 계 산하는 함수이다 . 

뜻구역과 값구역의 모든 값들은 라디안으로 표시된다 . 

[실례 7] 

STATIC PUBLIC SUB MainO 
DIM MyResult AS Float 
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DIM MyNum AS Float 


MyNum = 0.5 

MyResult = ATanh (MyNum) 

PRINT MyNum 의 거물쌍곡랑겐스값 : " & MyResult 
END 
결과 

0.5 의 거끌쌍곡랑겐스값 : 0.549306144334 

⑧ Cos() 

형식 

Cos ( 수 ) 


Cos 0 함수는 수의 코시누스값을 계산하는 함수이다 . 

여기서 수는 라디안으로 표시된 각이다 . 

이 함수의 값구역은 [-1,1] 이다 . 

[실례 8] 

STATIC PUBLIC SUB MainO 
DIM MyAngle AS Float 
DIM MySecant AS Float 

MyAngle = 1.3 ’ 각을 라디안으로 정의 하여 준다 . 

MySecant = 1 / Cos (MyAngle) ’ 코쎄 칸스계 산 . 

PRINT MyAngle & "라디안의 코쎄칸스값 : " & MySecant 
END 
결과 

1.3 라디안의 코쎄칸스값 : 3.738334127075 


[ 주의 ] 

각을 라디안으로 표시하자면 각 * tc/180. 

라디 안을 각으로 표시 하자면 라디 안 * 180/tc . 
⑨ Cosh () 

형삭 

Cosh ( 수 ) 


이 함수는 수의 쌍곡코시 누스를 계 산하는 함수이다 . 
모든 값들은 라디 안으로 표시된다 . 
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l [실례 9] 

STATIC PUBLIC SUB MainO 
DIM My Angle AS Float 
DIM MyResult AS Float 


MyAngle = 1.0 ’ 라디안으로 표시된 값 . 

MyResult = Cosh (MyAngle) 

PRINT MyAngle & "라디 안의 쌍곡코시누스값 : ” & MyResult 
END 
결과 

1 라디안의 쌍곡코시누스값 : 1.543080634815 
⑩ Deg() 와 RadO 
형식 

Deg ( 수 ) 

Rad ( 수 ) 


Deg() 함수는 라디 안을 각으로 변화시 키 는 함수이다 . 

RadO 함수는 이 와 반대 로 각을 라디 안으로 변화시 키 는 함수이다 . 

[실례 10] 

STATIC PUBLIC SUB MainO 
PRINT Deg (Pi/2) 

PRINT Rad(90) 

END 

결과 

90 

1.570796326795 


⑪ ExpO 

형식 

Exp(X) 


이 함수는 근의 x 제곱(여기서 e 는 자연로그의 밑수로서 약 2. 718282 이 다.)을 계산 
하는 함수 이 다 . 

만일 표의 값이 709. 782712893 을 초과하면 오유가 발생한다 . 
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[실례 11] 

STATIC PUBLIC SUB MainO 
DIM MyAngle AS Float 
DIM MyHSin AS Float ’ 각을 라디안으로 정의 . 
MyAngle = 1.3 ’ 지수함수를 리 용하여 쌍곡시누스값계산 

MyHSin = (Exp(MyAngle) - Exp(-1 * MyAngle)) / 2 
PRINT MyHSin 
END 
결과 

1.698382437293 
⑫ FixO 와 FracO 
형삭 

Fix ( 수 ) 

_ Frac ( 수 ) _ 

FixO 함수는 수의 옹근수부를 돌려 주는 함수이다 . 

FracO 함수는 수의 소수부를 돌려주는 함수이다 . 

[실례 12] 

STATIC PUBLIC SUB MainO 
PRINT Fix (Pi) 

PRINT Frac (Pi) 

PRINT Fix (-Pi) 

PRINT Frac (-Pi) 

END 

결과 

0.14159265359 

-3 

0.14159265359 

⑬ IntO 

형삭 

Int ( 수 ) 


이 함수는 수의 옹근수부 즉 주어진 수를 넘지 않는 가장 큰 옹근수를 돌려준다 . 
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[실례 131 

PRINT Int(Pi) 
3 

⑭ Log() 

형식 

Log ( 수 ) 


수는 0 보다 큰 임의의 수식이 될수 있다 . 

이 함수는 밑 수 e 를 가진 자연로그를 계 산하는 함수이다 . 

상수 e 는 약 2. 718 282 로서 쌍곡선 y = 1/x 과 x 축，그리 고 수직선 x=l, x=e 로 둘 
러막힌 지역의 면적이 1 로 되는 유일한 값이다 . 

lnx 는 물리학과 공학에서 자연로그에 대하여 말할 때 리용된다 . 

한편 수학자들은 공통적으로 log 표시를 사용한다 . 

[실례 14] 

STATIC PUBLIC SUB MainO 
PRINT Log(2.71828) 

PRINT Log(l) 

END 

결과 

0.999999327347 

0 

졌 다음의 공식을 리용하여 임의의 밑수 n 에 대한 로그값을 계산할수 있다 . 
Logn(x) = Log (x)/Log (n) 

[실례 15] 

STATIC PUBLIC SUB MainO 
DIM n AS Float 
DIM x AS Float 
DIM logn AS Float 
n = 2 
x = 10 

logn = Log(x) / Log(n) 

PRINT logn & "은 Log& n & "(" & x & ")" & "의 결과이다 . " 

END 
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결과 

3. 321928094887은 Log2(10) 의 결과이 다. 
⑮ LoglOO 

형식 

_ LoglO (수) _ 

LoglO 은 수의 상용로그를 계 산하는 함수이다. 

즉 LoglO(x) = Log(x)/Log(10) 

[실례 16] 

PRINT LoglO(10) 

1 

⑯ Max() 와 Min () 


형식 

Max (식 [ 

식 . 

奴.!]) 

Min (식 [ 

, 식 

. ]) 


MaxO 함수는 식목록에서 값이 가장 큰 식을 돌려준다. 

Min() 함수는 식목록에서 값이 가장 작은 식을 돌려준다. 

식은 수값형 혹은 날자/시간형 이 될수 있다. 

[실례 17] 

STATIC PUBLIC SUB MainO 
PRINT Max(16, 4, 7, -1, 3) 

PRINT Max (Now, CDate("01/01/1900"), Cdate("01/01/2100")) 
PRINT 

PRINT Min(18, 4, 7,-1, 3) 

PRINT Min (Now, CDate("01/01/1900"), CDate("01/01/2100")) 
END 
결과 
16 

01/01/2100 


01/01/1900 
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⑫ PiO 

형식 

Pi ([수]) 

PiO 함수는 수 * tc 값을 돌려준다. 

만일 수가 지적되지 않으면 1로 간주된다. 

[실례 18] 

PRINT Pi 
3.14159265359 


PRINT Pi(2) 

6.28318530718 
⑬ Randomize () 

형식 

Randomize (수) 

Randomize() 함수는 RndO 함수의 우연수발생을 초기화한다. 

즉 이 함수는 자체로 현재의 날자와 시간에 기초하여 RndO 함수가 우연수를 발생 
할수 있는 초기값을 결정한다. 

만일 RandomizeO 를 먼저 리용하지 않고 RndO 함수를 려용하면 프로그람을 실 
행시킬 때 매번 득같은 우연수렬이 발생되게 된다. 

같은 프로그람에 대하여 그것을 실행시킬 때마다 새로운 우연수렬이 나타나도록 
하려면 RndO 함수를 호출하기전에 반드시 RandomizeO 함수를 호출해야 한다. 

⑬ RndO 

형식 

Rnd ([최소값 [, 최대값]1| _ 

만일 아무런 파라메 터도 지적하지 않으면 RndO 함수는 [0, 1] 구간의 우연수를 발생 
한다. 

하나의 파라메터 만 지 적 하면 RndO 함수는 [0, 최 소값] 구간의 우연수를 발생한다. 
두개의 파라메터 를 다 지 적 하면 RndO 함수는 [최 소값，최 대 값]구간의 우연수를 발생 
한다. 

[주의] 

임의의 주어진 구간에 속하는 우연옹근수를 만들자면 다음의 공식을 리용하여야 
한다. 
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Int (( 최대값 - 최소값 + 1) * Rnd + 최소값 ) 
[실례 19] 

STATIC PUBLIC SUB MainO 
DIM Dice AS Integer 

PRINT ”0 과 1 사이값 : "； 
PRINT Rnd 

PRINT "0 과 2 사이값 : "； 
PRINT Rnd(2) 

PRINT "Pi 와 Pi*2 사이값 : "； 
PRINT Rnd (Pi, Pi (2)) 

PRINT 

Randomize 


DO WHILE Dice <> 1 
Dice = Int (Rnd (1 ， 7)) 

’ 주사위 던지 기 를 모의 하여 1 부터 6 까지 우연수를 발생한다 . 
PRINT "던지기 ” & dice 
LOOP 
END 
결과 

0 과 1 사이값 : 

7.826369255781E-6 
0 과 2 사이값 : 

0.263075576164 
Pi 와 Pi*2 사이값 : 

5.515396781706 

던지기 6 
던지기 4 
던지기 1 
⑩ Round () 

형삭 

Round ( 수ᅵ :, 자리수 ]) 
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Round 0 함수는 둥그리기 함수 이 다 . 

자리수가 지적되지 않는 경우 옹근수에 가장 가까운 수로 둥그리기한다 . 자리수를 
지 적 하면 10 ᄆ자리 수값으로 둥그리 기 한다 . 

[실례 20] 

STATIC PUBLIC SUB MainO 
PRINT Round (Pi) 

PRINT Round (Pi, -2) 

PRINT Round(1972, 2) 

END 

결과 

3.14 

2000 

通 ) Sgn() 

형식 

Sgn ( 수 ) 

SgnO 함수는 수의 부호를 지적하는 옹근수를 돌려준다 . 

만일 수값이 령이면 0 을 돌려주고 수값이 정수이면 +1 을 돌려준다 . 수값이 부수이 
면 -1 값을 돌려준다 . 

[실례 21] 

STATIC PUBLIC SUB MainO 
PRINT Sgn (Pi) 

PRINT Sgn (-Pi) 

PRINT Sgn(0) 

END 

결과 


0 

© SinO 

형식 

Sin ( 각 ) 
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SinO 함수는 각의 시누스값을 계산하는 함수이다 . 
각은 라디안으로 준다 . 

[실례 22] 

STATIC PUBLIC SUB MainO 
PRINT Sin (Pi/2) 

END 

결과 

1 

© SinhO 

형식 

Sinh ( 수 ) 


SinhO 함수는 수의 쌍곡시누스를 계산하는 함수이다 . 

[실례 23] 

STATIC PUBLIC SUB MainO 
DIM MyAngle AS Float 
DIM MyHSin AS Float ’ 각을 라디 안으로 정 의 

MyAngle = 1.3 ’ 지수함수를 리용하여 쌍곡시누스계산 

MyHSin = (Exp (MyAngle) - Exp(-1 * MyAngle)) / 2 
PRINT MyHSin 

PRINT Sinh (MyAngle)’ 해당함수를 리 용하여 계산 
END 
결과 

1.698382437293 

1.698382437293 

@ Sqr() 

형삭 

Sqr ( 수 ) 


Sqr 는 수의 두제 곱뿌리 를 계 산하는 함수이다 . 
수인수는 부아닌 수값을 가지 는 수식 이다 . 
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I [실례 24] 

STATIC PUBLIC SUB MainO 
DIM MySqr AS Float 


MySqr = Sqr(4) 

PRINT MySqr & ”: Sqr(4 ) 의 결과，， 
MySqr = Sqr(23) 

PRINT MySqr & ”: Sqr(23 ) 의 결과 ，’ 
MySqr = Sqr(O) 

PRINT MySqr & ， ’: Sqr(O ) 의 결과 " 
END 
결과 

2 ： Sqr(4 ) 의 결과 
4.795831523313 : Sqr(23 ) 의 결과 
0 ： Sqr(0 ) 의 결과 


逐 ) Tan() 

형식 

Tan ( 각 ) 


Tan () 함수는 각에 대한 탕겐스값을 계산하는 함수이다 . 
각은 라디안값을 주는 임의의 수식이 될수 있다 . 

[실례 25] 

STATIC PUBLIC SUB MainO 
DIM MyAngle AS Float 
DIM MyCotangent AS Float 


MyAngle = 1.3 ’각을 라디안으로 정의 . 

MyCotangent = 1/Tan (MyAngle) ’ 코탕겐스계 산 . 
PRINT MyCotangent 
PRINT Tan (Pi/4) 

END 

결과 

0.277615646541 
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형삭 

Tanh ( 수 ) 


TanhO 함수는 수의 쌍곡랑겐스값을 계산하는 함수이다 . 
[실례 26] 

STATIC PUBLIC SUB MainO 
PRINT Tanh(l) 

END 

결과 

0.761594155956 


3. 유도함수와 그 적용방법 


수학계산에서 리용되는 다른 많은 함수들은 우의 표준함수들을 리용하여 만들수 있다 . 
다음의 표에서는 수학공식을 리용하여 만들수 있는 간단한 유도함수들을 보여준다 . 


표 5-1. 

유 S 함수 * 

함 수 

공 식 

쎄 칸스 

Sec(X) = 1 / Cos(X) 

코쎄 칸스 

Cosec (X) = 1 / Sin(X) 

코 탕겐스 

Cotan (X) = 1 / Tan(X) 

거 끌쎄 칸스 

Arcsec (X) =Atn (X/Sqr (X*X-1)) +Sgn ((X) -1)* (2*Atn (1)) 

거끌코쎄칸스 

Arccosec (X) = Atn (X/Sqr (X*X - l)) + (Sgn (X) - 

l)*(2*Atn(l)) 

거물코탕켄스 

Arccotan(X) = Atn(X) + 2 * Atn(l) 

쌍곡쎄 칸스 

HSec(X) = 2 / (Exp(X) + Exp(-X)) 

쌍곡코세 칸스 

HCosec(X) = 2 / (Exp(X) - Exp(-X)) 

쌍곡코탕켄스 

HCotan (X) = (Exp (X) +Exp (_X)) / (Exp (X) - Exp (_X)) 

거 끌쌍곡쎄 칸스 

HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X) 

거 끌쌍곡코쎄 칸스 

HArccosec (X) =Log ((Sgn (X) *Sqr (X*X+1) +1) /X) 

거물쌍곡코탕겐스 

HArccotan(X) = Log((X + 1) / (X - 1)) / 2 

밑수 n 을 가지는 로그 

LogN(X) = Log(X) / Log(N) 
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Gambas 는 이와 갈은 유도함수들을 직접 제공하지 못하기때문에 이 장의 마지막 
련습으로 우의 표에 렬거된 함수들을 제공할수 있도륵 능력을 확장하는 모듈을 작성하 
려고 한다 . 

작성하는 모듈의 이름은 Derived 이며 이 모듈이 완성되면 사용자들은 (Derived. 
함수이름》형식으로 유도함수들을 리용할수 있다 . 

Gambas 를 기동하고 My Math 라는 이름을 가진 조작탁응용프로그람을 창조하시오 . 
그리고 새로운 클라스로서 Classl 을 창조하고 그것을 시 작클라스로 하시오 . 

다음 새로운 모듈을 창조하고 그 이름은 Derived 라고 하시오 . 

Classl 의 코드창을 열고 다음과 같이 코드를 작성 한다 . 

’Gambas class file 

STATIC PUBLIC SUB MainO 
DIM my AS Float 


my = 51.5 
WHILE my <> 0.0 

PRINT ”1 보다 큰수를 입력하시오 . 끝내려면 0 을 입력 ” 

LINE INPUT my 
IF my = 0.0 THEN BREAK 
IF my <= 1.0 THEN 
PRINT n 입력값이 1 보다 작다 . ’’ 

CONTINUE 

ENDIF 

PRINT ’’ 입력값 : ’’ & my 

PRINT Derived. Sec (my) & " : secant" 

PRINT Derived. CoSec (my) 技 cosecant’’ 

PRINT Derived. CoTan(my) & ": cotangent" 

PRINT 

PRINT Derived. ArcSec (my) & M ： arcsecant" 

PRINT Derived. Arccosec (my) & ": arccosecant" 

PRINT Derived. Arccotan (my) 技 ": arccotangent" 

PRINT 

PRINT Derived. HSec (my) 技 " : hyperbolic secant" 
PRINT Derived. HCoSec(my) 技 hyperbolic cosecant" 
PRINT Derived. HCoTan(my) 技 hyperbolic cotangent” 
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PRINT 

PRINT Derived. HArcSec(my) 技 ”: hyperbolic arcsecant" 
PRINT Derived. HArcCoSec (my) 技 " : hyperbolic arccosecant" 
PRINT Derived. HArcCoTan (my) & hyperbolic arccotan" 
PRINT 

PRINT Derived.LogN(my ， 2)&”: n &myVair 의 밑수 2 인 로그값 ” 
WEND 
END 

다음은 Derived 모듈파일을 두번 찰칵하여 열고 다음의 코드를 넣 으시오 . 

’ Gambas Derived, module file 

PUBLIC FUNCTION Sec(x AS Float) AS Float 
DIM result AS Float 
result = 1.0/Cos (x) 

RETURN result 
END 


PUBLIC FUNCTION CoSec (x AS Float) AS Float 
DIM result AS Float 
result = 1.0/Sin (x) 

RETURN result 
END 


PUBLIC FUNCTION CoTan(x AS Float) AS Float 
DIM result AS Float 
result = 1.0/Tan (x) 

RETURN result 
END 

PUBLIC FUNCTION ArcSec(x AS Float) AS Float 
DIM result AS Float 

result = Atn (x/Sqr (x*x-l)) +Sgn ((x) -1) * (2*Atn (1)) 
RETURN result 
END 
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PUBLIC FUNCTION Arccosec(x AS Float) AS Float 
DIM result AS Float 

result = Atn(x/Sqr(x*x-l)) + (Sgn(x)-l)*(2*Atn(l)) 

RETURN result 

END 

PUBLIC FUNCTION Arccotan(x AS Float) AS Float 
DIM result AS Float 
result = Atn(x)+(2*Atn(l)) 

RETURN result 

END 

PUBLIC FUNCTION HSec(x AS Float) AS Float 
DIM result AS Float 
result = 2.0/(Exp(x)+Exp (- x)) 

RETURN result 

END 

PUBLIC FUNCTION HCoSec(x AS Float) AS Float 
DIM result AS Float 
result = 2.0 / (Exp(x) - Exp(-x)) 

RETURN result 

END 

PUBLIC FUNCTION HCoTan(x AS Float) AS Float 
DIM result AS Float 

result = (Exp (x) + Exp (- x))/(Exp (x) - Exp(-x) ) 

RETURN result 

END 

’만일 공식 Log((Sqr(x*x+l))+l)/x ) 를 그대로 사용하면 

’ Sqr 함수와 Log 함수는 부수값을 가질 때 오유가 발생 할수 있 다 . 

’부분수속을 다음과 같이 작성하면 오유없이 갈은 결과를 줄수 있다 . 

PUBLIC FUNCTION HArcsec(x AS Float) AS Float 
DIM result AS Float 
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DIM Tempi AS Float 
DIM Temp2 AS Float 
DIM Temp3 AS Float 
result = Temp3 * 1 

Tempi = ((x * -1)*( x + 1))+1 
Temp2 = Sqr (Abs (Tempi)) 

Temp3 = Log(Temp2) 
result = Temp3 *- 1 

RETURN result 
END 

PUBLIC FUNCTION HArccosec(x AS Float) AS Float 
DIM result AS Float 
result = Log ((Sgn (x) *Sqr (x*x+l)+1) /x) 

RETURN result 
END 

PUBLIC FUNCTION HArccotan(x AS Float) AS Float 
DIM result AS Float 
result = Log((x+l)/(x-l))/2 
RETURN result 
END 


PUBLIC FUNCTION LogN(x AS Float, n AS Float) AS Float 
DIM result AS Float 
result = Log (x)/Log (n) 

RETURN result 
END 

프로그람을 실행시키면《 1 보다 큰수를 입력하시오 . 끝내려면 0 을 입력》라는 통보 
가 나온다 . 

그때 4 를 입력하면 다음의 결과가 나온다 . 

1 보다 큰수를 입력하시오 . 끝내려면 0 을 입력 


@활활 0활 ■⑩ 


85 





Gambas 프포그람작성 :? f 초 

입력값 : 4 

1.529885656466 : secant 
1.321348708811 : cosecant 
0.863691154451 : cotangent 


0.85707194785 : arcsecant 
0.801529994232 : arccosecant 
2.896613990463 : arccotangent 


0.036618993474 : hyperbolic secant 
0.036643570326 : hyperbolic cosecant 
1.000671150402 : hyperbolic cotangent 


1.472219489583 : hyperbolic arcsecant 
0.247466461547 : hyperbolic arccosecant 
0.255412811883 : hyperbolic arccotangent 
2 : 4 의 밑수 2 인 로그값 
1 보다 큰수를 입력하시오 . 끝내 려면 0 을 입력 

이와 같은 방법으로 프로그람에서 필요한 거의 모든 수학연산을 진행할수 있게 된다 . 
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제 6 장. 도형 사용자대 면 부프로그람작성 

지 금까지 는 간단한 조작탁형 프로그람들만을 작성 하였 다 . 

실천에서는 사용자들이 대면부를 가진 프로그람을 요구한다 . 프로그람에서 대면부 
는 항상 눈에 띄우는것이기때문에 제 일 중요한 부분이라고 할수 있다 . 

도형사용자대면부를 가진 프로그람을 작성하려면 대면부를 잘 설계하고 작성하여야 
한다 . 

이 장에서는 먼저 대면부작성도구인 콘트롤의 개념과 종류，속성설정방법에 대하 
여 학습한다 . 다음 메쏘드와 사건들에 대하여 학습하고 이것을 종합하여 도형사용자대 
면부프로그람을 작성하는 방법을 실례프로그람을 통하여 련습하게 된다 . 

1. 콘트를 

도형 사용자대 면부를 작성 하자면 도구창에 있는 콘트롤들을 홈설계 창문우에 배 치 하 
여 야 한다 . 

그림 6-1 에서 보는바와 같이 도구창은 Form 과 
Container, Spacial 세개의 부분으로 구성되 여있다 . 

Gambas 를 기동하면 항상 도구창에 표준적으로 나타나 
는 콘트롤들이 있다 . 

이 콘트롤들을 표준콘트롤이라고 한다 . 

① 표준콘트롤 

표준콘트롤들은 세 개의 부분도구창에 나누어져있다 . 

- Form 부분도구창에 있는 콘트롤들 
그림 6-1 에 표시된 콘트롤들이 Form 부분도구창에 소속 
된 콘트롤들이다 . 

• 왼쪽우에서부터 첫번째행에는 Select ( 선택 ), Label ( 표식 ), TextLabel ( 본문표식 ), 
Separater (분리 )， PictureBox (그림 칸)， MovieBox (동영 상칸)， ProgressBar (진행 
띠)콘트롤들이 있으며 

• 두번째행에는 Button ( 단추 ), CheckBox ( 검사칸)， RadioButton ( 단일선택단추 ), 

ToggleButton ( 토굴단추)， ToolButton ( 도구단추)， Slider ( 미끄럼띠)， 

ScrollBar ( 흘림띠)콘트롤이 있다 . 

• 세번째행에는 ListBox ( 목록칸 ), ComboBox ( 결합칸 ), TextBox ( 본문칸 ), 
SpinBox ( 스핀칸 ), TextArea ( 본문령역)， ListView ( 목록구조 ), TreeView (나무구 
조)콘트롤이 있으며 



그림 6-1. Gambas 도구창 
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• 네번째행에는 IconView ( 아이콘구조)， GridView (살창 
구조 ), ColumnView ( 렬구조)콘트롤들이 있다 . 다른 부분 
도구창은 도구창에서 해당한 부분도구창이름을 마우스로 찰 
칵하여 펼칠수 있다 . 

- container 부분도구창에 있는 콘트롤들 
그림 6-2 에서 보는바와 같이 첫번째행에는 Select ( 선택)， 

HBox ( 수평칸 ) , VBox (수직 칸)， HPanel (수평 판 ) , VPanel (수 
직판 ), Hsplit ( 수평분리 ), Vsplit ( 수직분리)콘트롤이 있으며 
두번째행에는 Panel ( 판 ), Frame ( 틀)， TabStrip ( 타브판 ), 

ScrollView (흘림 띠 구조 ), Drawing Area (그리 기 령 역)콘트롤 
이 있다 . 

- Special 부분도구창에 있는 콘트롤들 
여 기 에 는 Select ( 선택)， Timmer (시 계 콘트롤 ), Embedder (매 몰 ), Tray icon (생 각아 

이콘)콘트롤이 있다 . 

표준콘트롤외에 다른 외부콘트롤들을 사용하자면 
Project/ Properties 를 찰칵하고 components 를 선택한 다음 
해 당 콘트롤묶음을 지적하면 된다 . 

보는바와 같이 Gambas 에는 많은 콘트롤들이 있다 . 

그러면 대면부에서 가장 많이 리용되는 콘트롤인 단추콘 
트롤 (Button) 을 통하여 콘트롤을 창조하는 방법부터 먼저 학 
습한다 . 

② 콘트롤의 창조 

단추콘트롤을 리용하면 홈에 무엇인가 < 확인>하거나 <중 
지>하는것과 갈은 단추를 완성할수 있다 . 

단추우에는 본문 또는 그림도 표시할수 있다 . 

물론 도구창에서 단추아이콘을 선택하여 홈에 단추콘트롤을 배 치할수 있다 . 

이러한 객체를 홈우에 창조할수 있다는것은 곧 실행시에도 홈에 동적으로 단추를 
발생시키는 코드를 작성할수 있다는것을 의미한다 . 

단추객체를 선언하자면 다음과 갈은 형식을 리용해야 한다 . 

DIM hButton AS Button 

hButton = NEW Button (Parent AS Container) 

먼저 Button 형변수로서 hButton 을 선언한 다음 NEW 에 의하여 hButton 에 객체 
를 창조한다 . 

여기서 Container 는 다른 콘트롤들을 포함하는 어미콜라스로서 이 경우에는 단추 
가 배치되는 홈을 의미한다 . 



그림 6-3. special 부분도구창 



그림 6-2. container 부분도구창 
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우의 코드에 의하여 프로그람실행시에 홈에는 새로운 단추가 동적으로 창조된다 . 

콘트롤을 창조한 다음에는 콘트롤의 형태를 자기마음대로 만들어야 하는데 이것은 
콘트롤의 속성에 대한 설정과 조종을 통하여 진행한다 . 


2. 속성 


콘트롤의 속성은 대면부설계시에 속성창을 리용하여 직접 설정할수도 있고 프로그 
람의 실행시에 설정하거나 읽을수도 있다 . 

실례로 다음 코드는 단추의 본문속성을 설정하여 단추우에 <oi 公가 표시되게 한다 . 
hButton. Text = “OK” 


콘트롤의 속성을 설정하는 명령문은《콘트롤이름.속성 = 식》의 형식을 가진다 . 이 
형 식 은 콘트롤에 서 속성 정 보를 얻 거 나 설 정 할 때 리 용되 는 표준적 인 방법 이 다 . 

모든 콘트롤들에서 대부분 속성은 공통적 이다 . 

따라서 여기서는 공통적인 속성들을 먼저 학습하고 나중에 주어진 콘트롤들에서 
특이한 속성들을 학습하게 된다 . 

① Name 

콘트롤의 이름속성이다 . 대면부설계시에 콘트롤을 배치하면 콘트롤의 이름은 표준 
적으로 설정된다 . 실례로 Button 콘트롤에서는 보통 buttonl, button2 등의 형태로 
이름이 설정된다 . 

그러나 속성창에서 이 속성을 변화시켜 사용자의 요구에 맞게 콘트롤의 이름을 변 
경할수 있다 . 

실례로 Quitbtn, Openbutton••• 

이 속성은 대면부의 설계시에만 변화시킬수 있고 실행시에는 변화시킬수 없다 . 

② BackColor 


콘트롤의 배경 색속성 으로서 옹근수값으로 설정 한다 . 

색값을 설정하기 위하여 미리 정해진 색갈상수값을 리용할수 있다 . 


Black 

DarkCyan 

DarkRed 

Green 

Pink 

White 


Blue 

DarkGray 

DarkYellow 

LightGray 

Red 

Yellow 


Cyan 

DarkGreen 
Default 
Magenta 
T ransparent 


DarkBlue 

DarkMagenta 

Gray 

Orange 

Violet 


실례로 hButton 의 배경색을 붉은색으로 설정하자면 hButton. BackColor 
Color. Red 와 같이 설정하면 된다 . 
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만일 설정하려는 색 에 대하여 RGB 혹은 HSV 값을 알면 color 물라스의 RGB() 와 
HSVO 메쏘드를 리용하여 색값으로 변환하여 배경속성에 줄수 있다 . 

- RGBO 의 형식 

RGB ( 붉은색값 , 풀색값 , 푸른색값 ) 

RGB 는 붉은색，풀색，푸른색값을 0~255 사이의 옹근수로 설정하여주며 그에 해 
당한 색값을 돌려준다 . 

- HSVO 의 형식 

HSV ( 색상，투명도 , 명암 ) 

HSV 는 색상 , 투명도 , 명암 ( 밝기도)요소들로 색값을 돌려준다 . 

[실례 1] 

hButton. BackColor = Color. RGB(255,255,255) 

이 코드는 단추의 배경색을 흰색으로 설정한다 . 

RGBO 와 HSVO 를 러용하면 Gambas 가 제공하는 고정적 인 색갈상수값외에 다른 
색값들을 설정하려 고 할 때 유리하다 . 

③ Border 

콘트롤의 경계를 설정하는 속성으로서 많은 콘트롤들에서 찾아볼수 있는 공통적인 속성 
이다 . 

경 계 속성 설정 에 리 용되 는 상수들은 다음과 같다 . 

Etched, None, Plain, Raised, Sunken 

[실례 幻 

hButton. Border = Border. Plain 

④ Cancel 

이것은 사용자가 건반에서 ESC 건을 눌렀을 때 마치도 해당 단추를 마우스로 찰칵 
한것처 럼 동작하겠는가 안하겠는가를 결정 하는 속성 이 다 . 

이 속성은 론리값으로 설정된다 . 

[실례 3] 

hButton. Cancel = TRUE 

프로그람이나 속성창에서 단추의 Cancel 속성을 True 로 설정하면 마치도 사용자 
가 <중지 >, < 랄되 >, <Cancel> 과 같은 단추를 누른것처럼 사건을 조종하여 홈에서 유 
연하게 랄되할수 있게 해준다 . 

⑤ Caption/Text 

문자렬값을 가지는 속성으로서 콘트롤에 문자렬을 표시하거나 돌려주는 속성이다 . 
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[실례 4] 

hButton. Caption = “OK” 
hButton. Text = “OK” 

⑥ Default 

이것은 사용자가 건반에서 ENTER 건을 눌렀을 때 마치도 해당 단추를 마우스로 
찰칵한것 처 럼 동작하겠는가 안하겠는가를 결정 하는 속성 이 다 . 

이 속성은 론리값으로 설정된다 . 

일반적으로 < 확인 >/< 중지>형의 대화창을 창조할 때 이 속성을 사용하여 단추들중 
의 하나를 고정동작으로 설정하게 된다 . 

[실례 5] 

hButton. Default = FALSE 

⑦ DROP 

이것은 콘트롤의 끌기와 놓기로부터 놓기를 받아들이겠는가를 결정하거나 검사하 
는데 리용되는 속성 이 다 . 

아래와 같은 코드를 리용하여 콘트롤우에 무엇인가를 놓기하기전에 값을 검증할수 
있 다 . 


[실례 6] 

IF hButton. Drop = FALSE THEN 

hButton. ToolTip = "놓기가 허용되지 않는다 ” 

ELSE 

hButton.ToolTip = "여기에는 놓기가 허용된다 ." 

ENDIF 
⑧ Enabled 

이속성은 콘트롤을 리용할수 있는가 없는가를 지적한다 . 

콘트롤을 동작할수 없게 하자면 이 속성값을 FALSE 로 한다 . 

[실례 7] 

IF 어떤조건식 = FALSE THEN 
hButton. Enabled = TRUE 
ELSE 

hButton. Enabled = FALSE 
ENDIF 

® FONT 

이 속성은 콘트롤에서 본문을 나타내기 위하여 사용되는 서체를 돌려주거나 설정하 
여분다 . 
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[실례 8] 

hButton. Font. Name = "PRK P Chonbong" 

hBu 竹 on. Font. Bold = TRUE 

hButton. Font. Italic = FALSE 

hButton. Font. Size = "10" 

hButton. Font. StrikeOut = FALSE 

hButton. Font. Underline = FALSE 

결과 


Click or press ESC to Quit 
그림 6-4. 폰트속성설정결과 

⑩ Forecolor 

이 속성 은 콘트롤의 전경 색을 설정 해 준다 . 

Foreground 속성도 ForeColor 속성과 같다 . 

이 속성 에 값을 설정할 때에도 색갈상수값을 리용할수 있다 
[실례 的 

hButton. ForeColor = Color. Red 

hButton. Foreground = Color. RGB(255,255,255) 

⑪ X 

이 속성은 옹근수로 정의 되는 속성 으로서 콘트롤의 가로방향위 치 값을 설정하거 나 
돌려주는데 리용된다 . 

Left 속성도 X 속성과 같다 . 

⑫ Y 

이 속성도 옹근수로 정의되는 속성으로서 콘트롤의 세로방향위치를 설정하거나 돌 
려주는데 리용된다 . 

⑬ Height 

이 속성은 옹근수로 정의되는 속성으로서 콘드롤의 높이를 설정하거나 돌려주는데 
리용된다 . 이것은 H 속성과 류사하며 교환하여 쓸수 있다 . 

⑭ Width 

이 속성은 옹근수로 정의되는 속성으로서 콘트롤의 너비를 설정하거나 돌려주는 속 
성이다 . 

이와 류사하게 W 속성 이 있으며 서로 교환하여 쓸수 있다 . 

⑮ Mouse 

이 속성은 옹근수로 정의되는 속성으로서 마우스가 콘트롤의 경계내부에서 움직일 
때 마우스지 시 자의 형 태 를 설정 하거 나 돌려 주는 속성 이 다 . 
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마우스지시자의 형래 

값 

Default 

1 

Arrow 

0 

Cross 

2 

Wait 

3 

Text 

4 

SizeS 

5 

SizeE 

6 

SizeNESW 

7 

SizeNWSE 

8 

SizeAll 

9 

Blank 

10 

SplitV 

11 

SplitH 

12 

Pointing 

13 


⑯ Parent 

이 속성은 읽 기 전용속성 으로서 콘트롤을 포함하는 용기 (Container ) 를 돌려 주는데 
리용된 다 . 

⑫ Picture 

이 속성은 콘트롤우에 보여주는 그림을 설정하거나 돌려주는 속성이다 . 

⑬ ScreenX 

이것은 화면좌표에 서 콘트롤의 왼쪽경 계위 치 를 돌려 주는 읽기 전용속성 이 다 . 

보통 ScreenY 속성도 함께 사용된다 . 

⑬ ScreenY 

이것은 화면좌표에서 콘트롤의 웃경계위 치를 돌려주는 읽기속성 이 다 . 

⑩ ToolTip 

이 속성은 문자렬로 정의되는 속성으로서 ToolTip 를 돌려주거나 설정한 
다 . (ToolTip 는 마우스를 얼마동안 그 콘트롤우에 가져 갈 때 나타나는 자그마한 본문 
칸이다 .) 

[실례 10] 

hButton.ToolTip = "Click me!" 

© Top 

이 속성은 옹근수로 정의되는 속성 으로서 콘트롤이 배 치되 여있는 용기안에서 콘트 
롤의 웃경계의 위치를 돌려주거나 설정하여준다 . 

@ Visible 

이 속성은 론리값으로 정의되는 속성으로서 콘트롤이 보이게 하겠는가 보이지 않 
게 하겠는가를 결정한다 . 이 속성을 FALSE 로 설정하면 콘트롤이 보이지 않는다 . 
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반대 로 TRUE 로 설정하면 콘트롤이 보인 다 . 

3. 에쏘드 

메쏘드는 콘트롤에 대하여 그것을 보여주거나 숨기거나 움직이는것 등과 같이 그 
무엇인가를 하도록 하는 고정된 부분프로그람이다 . 

실례로 단추콘트롤에는 Delete, Drag, Grab, Hide, Lower, Move, Raise, 
Refresh, Resize, SetFocus, Show 와 같은 메쏘드들이 있다 . 

메쏘드를 리용하자면 콘트롤이름 . 메쏘드 ( 인수 1, 인수 2, …)의 형식을 리용해야 한다 . 
메쏘드는 함수처럼 호출한 다음 값을 돌려주는것도 있고 일반 부분프로그람처림 
호출하여 리용만 하는것 이 있다 . 

① Delete 

이 메쏘드는 콘트롤을 없애버린다 . 

[실례 11] 

buttonl. Delete 

콘트롤을 없애면 그 어떤 코드를 가지고도 그 콘트롤을 다시 살릴수 없다는것을 
알고 심중히 리용해 야 한다 . 

② Drag 

형식 

Drag (Data AS Variant [, Format AS String ]) 


이 메쏘드가 실행되면 해당 콘트롤의 끌기와 놓기공정을 시작한다 . 
여기서 Data 는 끌게 될 자료이다 . 

그 자료는 문자렬 혹은 화상일수 있다 . 

③ Grab 

형식 

GrabQ AS Picture 


이것은 콘트롤의 그림을 돌려주는 메쏘드이다 . 

④ Hide 와 Show 

이 메쏘드들은 콘트롤을 간단히 숨기거나 보이게 한다 . 
[실례 12] 

IF 조건식 = TRUE THEN 
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hButton.Hide 

ELSE 

hButton.Show 

ENDIF 

⑤ Move 

형식 

Move(X, Y [ ，너비 , 높이 ]) 


콘트롤을 움직 이거나 그 크기를 변경시키는데 리용된다 . 
인수값들은 물론 옹근수값이다 . 

[실례 13] 

hButton. Move(hButton. X 50, hButton.Y 20) 
⑥ Refresh 

형식 

Refresh([X, Y, 너비 , 높이 ]) 


콘트롤을 다시 그러거나 일부 실체들에서 콘트롤의 위치를 수정하는데 리용된다 . 
⑦ Resize 

형식 

Resize ( 너비，높이 ) 


콘트롤의 크기를 변경시키는데 리용된다 . 

⑧ SetFocus 

콘트롤에 초점을 주려고 할 때 이 메 쏘드를 호출할수 있다 . ^ 

콘트롤이 초점을 가지면 보통 다른 콘트롤과 구별되 여 나타난다 . 

실례로 초점을 가진 단추에는 그 주위에 표 : 
작은 점선테두리가 나타난다 . 콘트롤이 초점 % 


Click or press ESC to Quit 


그림 6_ 5 . 초점을 가진 콘트를 을 가진다는것 은 대 면부에 서 그 콘트롤과의 ■ 

작업 이 우선시 된 다는것 을 의 미 한다 . Arrangement 

실례로 만일 본문콘트롤이 초점을 가지면 그 콘트롤을 마우스로 rMenuedto 
지 적하지 않고도 건반으로 즉시 자료를 입 력할수 있으며 단추콘트롤이 HS : 0f 
초점을 가지면 ENTER 건을 눌러도 마우스로 그 단추를 누른것과 같 BCode 
은 효과가 나타난다 . 아， 쓰 - 


그림 6-6. 사건안내 
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4. 사건 

사건은 사용자나 조작체계가 프로그람(혹은 오브젝트)에 대하여 진행하는 그 어떤 
작용을 통털어 이르는 말이 다. 

실례로《단추를 누른다》，《창문을 연다》，《프로그람이 적재된다》와 같은것을 
사건이 라고 말할수 있다. 

도형 사용자대 면부프로그람에서 는 사건이 프로그람동작의 계기로 된다. 

다시말하여 사건이 발생하지 않으면 프로그람은 동작하지 않는다. 

프로그람작성자는 매개 사건에 대하여 그것을 처리하기 위한 일련의 코드를 작성하는 
데 이 코드묶음을 사건수속 (Event procedure ) 이 라고 한다. 

프로그람작성 자가 처 리하는 매 사건수속은 객체이름과 사건에 의 하여 구분된다. 
코드창에 서는 사건수속틀거 리 가 자동적 으로 만들어 진다. 

실례로 단추를 눌렀을 때의 사건수속을 처리하려면 홈에서 단추를 선택하고 오른쪽마 
우스단추를 찰칵하여 나타나는 안내문에서 Event 를 선택한다. 

다음 해당한 사건을 선택한다. 

이때 선택된 사건수속틀거리는 다음과 같이 코드창에 나타난다. 

PUBLIC SUB hButton _ Click () 

END 

그러 면 실 례 프로그람을 작성하는 과정 을 통하여 어 떤 사건 이 발생하며 그것 을 어 
떻 게 처 리 하는가를 배 우고 여 러 가지 사건처 리수법 들을 숙련해보자. 

[실습 1] 

Gambas 를 기동하고 PROl 이라는 도형사용자대면부방식의 프로젝트를 창조하시오. 
나무구조에서 기본홈을 마우스로 두번 찰칵하면 빈 홈이 열려진다. 

빈 홈의 임의의 위치에서 마우스를 두번 찰칵하면 코드창문에 홈이 열릴 때의 사 
건을 처 리하는 사건수속틀거 리가 나타난다. 

’ Gambas class file 
PUBLIC SUB Form _ Open () 

END 

여기에 아래와 같은 코드를 입력하시오. 

PUBLIC SUB Form _ Open () 

DIM hButton AS Button 

hButton = NEW Button ( ME ) AS n hBu 竹 on " 
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hButton . Y =60 
hBi ^ ton.Width = 200 
hButton . Height = 40 
hButton . Enabled = TRUE 

hButton . Text = " Click or Press ESC to Quit ." 
hButton . Border = TRUE 
hButton . Default = TRUE 
hButton . Cancel = TRUE 
hButton . Show 
END 

유능한 프로그람작성자는 코드를 작성할 때 수값을 직접 러용하지 않고 미리 정해 
진 상수들을 항상 리용해야 한다. 

실례 로 건반코드값들과 마우스형 태 들，색 갈, 폰트값과 같은것 을 정 의하는 상수이 
름들을 잘 알고 그대로 리용하는것이 좋다. 

계 속하여 단추를 찰칵하였 을 때 의 사건수속을 완성한다. 

PUBLIC SUB hButton _ Click () 
me . Close 
END 

결국 이 프로젝트에는 두개의 사건 즉《홈이 열릴 때의 사건》과《단추를 눌렀을 
때 의 사건》들을 처 리 하는 사건수속이 있 다. 우의 코드를 작성 하고 도구띠 에 서 풀색단 
추(실 행단추)를 찰칵하면 다음과 갈은 결과를 볼수 있 다. 

첫 사건수속에 의하여 홈이 열리는 순간 단추의 여러가지 속성이 설정되고 마지막 
으로 Show 메쏘드에 의하여 홈에 그림과 같이 단추가 출현한다. 



그림 6-7. 安! 프로젝트결과 
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다음 두번째 사건수속에 의하여 마우스로 단추를 찰칵하거나 건반에서 ESC 건을 누르 
면 이 프로그람환경 에서 탈되할수 있다. 결국 GUI 에 기초한 첫 Gambas 프로그람을 개 발 
한 셈 이 다. 물론 우의 프로그람은 도구창을 리용하면 더 간단히 작성 할수 있다. 

이미 작성한 프로젝트는 보관하고 새로운 프로젝트를 창조한 다음 홈우에 단추콘 
트롤을 배 치하고 속성창에서 해 당한 속성값을 미 리 설정 한다. 

다음 단추콘트롤을 두번 찰칵하면 코드창에는 단추를 찰칵하였을 때의 사건수속부분 
이 나타난다. 

PUBLIC SUB hButton _ Click () 


END 

여기에 다음의 코드를 작성하여 넣는다. 

Me . Close 

그 다음 이 프로그람을 실행시키면 처음과 꼭같이 동작한다. 

처음에 Gambas 도구창의 우점대신에 코드를 리용하여 힘든 방법으로 프로그람을 
개 발한것 은 다만 프로그람작성 자의 코드작성 능력 을 키 우기 위 해 서 이 다. 

다음은 여러개의 콘트롤로 이루어진 복잡한 형태의 대면부를 가진 프로그람을 작성하여 
보자. 

[실습 幻 

Gambas 를 다시 기동시킨 다음 프로젝트 조수를 리용하여 도형사용자대면부 프로젝트 
를 창조한다. 통합개발환경 이 나타나면 이름이 Forml 이라는 새로운 시작클라스홈을 창 
조한다. 



그림 6-8. Forml 의 설계 

우리가 작성 하려는 프로젝트의 대면부는 그림 6-8 과 같다. 

먼저 그림 6-8 과 같이 홈에 3개의 표식콘트롤을 배치한다. 표식콘트롤들의 이름은 
각각 Label 1, Label 2 , Label 3 으로 한다. 다음 속성창을 열고 Label 1-^1 text 속성을 
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“Here is the” 로， Label2-2] text 속성을 “Gambas Mascot” 로, Labels text 속성 
을 “->” 로 설정한다. 

다음 를퓨터에서 “gambas mascot, png” 로 된 푸른 새우그림을 골라내여 그것을 
프로젝트 등록부의 Data 목록에 복사하여 넣 는다. 

다음 PictureBoxl 의 picture 속성을 “gambas mascot, png" 로 설정 한다. 

그러면 홈의 웃부분은 그림 6-9 와 같이 된다. 


Herd is the GambasM 的 cot . > 

그림 6-9. 4 개의 콘트를로 구성된 홈 

그림 6-8 을 참고하면서 진행띠와 3개의 단추를 홈에 배치한다. 

단추들의 text 속성을 FunBtn , NoFunBtn , QuitBtn 라고 입력한다. 

이것 으로 홈설계는 끝낸다. 

홈설계가 끝나면 프로그람을 동작시키기기 위한 사건처리를 진행한다. 

- 홈이 열릴 때의 사건수속 

PUBLIC SUB Form _ Open () 

ProgressBarl . Value = 0.50 
ProgressBarl . BackColor = Black 
ProgressBarl . ForeColor = Yellow 
END 

이 사건수속에서는 보통 프로그람의 초기화가 진행된다. 

여기서는 상태띠의 값을 절반값으로 설정하고 배경색과 전경색을 설정한다. 

- 마우스지적자가 홈의 내부로 들어갈때의 사건수속 

PUBLIC SUB Form _ Enter () 

Label 1. Text = "" 

Label 2. Text = "" 

Label 3 .Text = ”" 

END 

이것으로 마우스가 홈우를 지나갈 때 표식콘트롤의 본문들이 나타나지 않게 된다. 

- 마우스지적자가 홈의 바깔으로 나올때의 사건수속 

PUBLIC SUB Form _ Leave () 

ProgressBarl . Value = 0.50 
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Label 1.Text = "Wasn’t that" 

Label2.Text = "some real" 

Label3. Text = "fun stuff?” 

END 

- 마우스지적자가 세개의 표식론트롤에 다가갈 때의 사건수속 

PUBLIC SUB Label l_Enter() 

Labe 11.Text = ’’Here’s the” 

END 

PUBLIC SUB Label2_Enter() 

Label2.Text = "Gambas Mascot" 

END 

PUBLIC SUB Label3_Enter() 

Label3. Text = M -〉，， 

END 

- 마우스지적자가 ## 새우그림에로 다가갈 때의 사건수속 

PUBLIC SUB PictureBoxl_Enter() 

Label 1. Text = MM 
Label2.Text = 

Label3. Text = ，"’ 

PictureBoxl. Border = Border. Plain 
END 

- 마우스지적자가 푸# 새우그림에서 떠나갈 때의 사건수속 

PUBLIC SUB PictureBoxl_Leave() 

Label 1.Text = "Wasn’t that” 

Label2.Text = "some real" 

Label3.Text = "fun stuff?" 

PictureBoxl. Border = Border. Sunken 
END 

- Quit 단추를 찰칵하였을 때의 사건수속 

PUBLIC SUB QuitBtn_Click() 

Forml. Close 
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다음 FunBto 을 찰칵할 때에는 상태띠값이 증가하고 NoFunBtn 을 찰칵할 때에는 
상태띠값이 감소하게 하려고 한다 . 

- FunBtn 단추를 찰칵하였을 때의 사건수속 

PUBLIC SUB FunBtn_Click() 

ProgressBarl. Value = ProgressBarl. Value + 0.01 
IF ProgressBarl. Value > 0.99 THEN 
ProgressBarl. Value = 0.0 
ENDIF 
END 

- NoFunBtn 단추를 찰칵하였을때의 사건수속 

PUBLIC SUB NoFunBtn_Click() 

ProgressBarl.Value = ProgressBarl. Value - 0.01 
IF ProgressBarl.Value < 0.01 THEN 
ProgressBarl. Value = 0.0 
ENDIF 
END 

이 와 같이 모든 코드작성 이 끝나면 프로젝 트를 보관하고 실 행단추를 찰칵한다 . 그 
러면 아래와 같이 프로그람이 시작되는것을 보게 될것 이 다 . 



그림 6-10. 실례프로그람 

현재 “Click me for more fun” 단추를 찰칵하면 상태띠가 변한다 . 
그것을 3 번 찰칵하면 그림 6-11 과 같이 된다 . 
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그림 6-11. FunBtn 단추를 3번찰칵했들 때의 상태 

또한 마우스가 푸른 새우그림우에서 왔다갔다하는데 따라 표식이 생겼다없어졌다 
하는것을 볼수 있다 . 

마지 막으로 프로그람을 끝내 기 위하여 ESC 건이 나 Quit 단추를 찰칵할수 있다 . 

이 실례에서는 마지막으로 double_click ( 두번찰칵사건)에 대하여 고찰한다 . 

- FunBtn 단추를 두번 찰칵했을 때의 사건수속 

PUBLIC SUB FunBtn_DblClick() 

ProgressBarl. Value = ProgressBarl. Value + 0.1 
IF ProgressBarl. Value > 0.90 THEN 
ProgressBarl. Value = 0.0 
ENDIF 
END 

- NoFunBtn 단추를 두번 찰칵했을 때의 사건수속 

PUBLIC SUB NoFunBtn_DblClick() 

ProgressBarl.Value = ProgressBarl.Value -0.1 
IF ProgressBarl.Value <0.1 THEN 
ProgressBarl. Value = 0.0 
ENDIF 
END 

현재 의 프로젝 트를 보관한 다음 실행단추를 찰칵한다 . 

이때 단추를 찰칵하면 상태띠값이 1 씩 증가하지만 두번찰칵하면 상태띠값이 10 씩 증가 
한다 . 

프로젝트를 보관한 다음 Gambas 에서 탈퍼한다 . 

실례에서 리용한 사건들은 Click, DblClick, Enter, Leave 사건들이다 . 


102 


0 활활 @활■할■활 















체 6 장. 도형사동外대연부프포그 fj •작성 

이 외에도 마우스끌기와 떨구기조종에 리용할수 있는 Drag, DragMove, Drop, 
LostFocus, GotFocus 사건과 건반조종과 관련된 keypress , keyrelease 사건들도 있 
는데 이것은 나중에 더 구체적으로 보기로 한다 . 

5. 도형 사용자대면 부 (GUI) 프로그람작성방법 

우의 실 례프로그람작성 과정 을 통하여 도형사용자대 면부프로그람작성단계 를 다음과 
같이 구분할수 있다 . 

① 문제요구분석 및 프로젝트 설계단계 ( 학습장에서 ) 

이 단계에서는 해결하려는 문제의 조건과 요구를 구체적으로 분석하며 프로젝트의 형 
태를 결정하고 프로젝트를 구성하게 될 홈과 콜라스 , 모둘구성 방안을 설계한다 . 

② 대 면부설 계 단계 (IDE 환경 에 서 ) 

홈의 륜곽을 설계하고 필요한 콘트롤들을 배치한다 . 

다음 객체들(홈과 론트롤)의 속성을 규정 한다 . 

運 ) 코드 작성 단계 (코드 창에 서 ) 

처 리 해 야 할 사건들을 구분하고 사건수속들을 완성 한다 . 

④ 오유수정 단계 (IDE 환경에서 ) 

프로그람을 실행시키면서 오유를 수정한다 . 

© 프로젝트의 보관 (IDE 환경에서 ) 

완성된 프로젝트의 원천을 보관한다 . 

⑥ 를파일단계 (IDE 환경 에서 ) 

오유가 없다고 인정되면 프로그람을 콤파일하여 실행파일로 만든다 . 

앞으로 이 책에서 프로그람작성은 ①-③단계까지를 구분하여 서술한다 . 


0활활 0할■할■활 


103 





Gambas 프포그람작성 7 f 초 


제 7 장. 자료입력들 위한 콘트를 

6장에서는 그림콘트롤，표식콘트롤, 단추콘트롤，상태띠콘트롤들과 그의 사건들에 
대하여 취급하였다. 

이러한 형태의 콘트롤들은 모두 자료를 표시하거나 마우스나 단추를 누를 때 일어 
나는 사건에 응답하지만 사용자들이 목록에서 어떤 항목을 선택하거나 필요한 자료를 
입 력 하는것과 같은 작업은 할수 없다. 

이 장에서는 자료입력에 리용되는 콘트롤들의 대표적 인 속성과 메 쏘드, 사건을 리 
용하는 방법에 대하여 서술한다. 

그러고 장의 마지막에는 이 콘트롤들을 종합적으로 려용하는 프로그람을 작성하게 
된 다. 

① TextBox (본문칸)론트롤 

한행 으로 된 본문자료를 입 력 하거 나 표시 하는데 리 용되 는 콘트롤이다. 

이 콜라스는 코드로도 창조할수 있다. 

DIM hTextBox AS TextBox 

hTextBox = NEW TextBox (Parent AS Container ) 


maxlengtii 속성 

입력되는 문자수의 웃한계를 설정하는 속성으로서 표준값은 0이다. 이것은 본문칸 
에 입 력할수 있는 최 대 문자수를 의 미 한다. 

Alignmen t 속성 

본문칸에서 문자의 맞추기기준을 설정하는 속성이다. 

Left : 왼쪽맞추기 
Right : 오른쪽맞추기 
Center : 중심 맞추기 
Password 속성 

이 속성을 True 로 설정하면 본문칸에 입력되는 모든 문자들이 별표 (*) 로 표시된 
다. 이 속성은 사용자암호와 갈은것을 입력할 때 리용할수 있다. 

Clear 메쏘드 

본문칸의 내용을 모두 지운다. 

② Tex 1 ;Label (본문표식)콘트롤 

간단한 HTML 본문을 표시 하는 콘트롤이다. 

이 콜라스는 코드로도 창조할수 있다. 

DIM hTextLabel AS TextLabel 

hTextLabel = NEW TextLabel (Parent AS Container ) 
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이 콘트롤에서는 HTML 언어를 리용하여 본문의 표시형식을 여러가지로 조종할수 
있 다. 


[실례 1] 

TextLabell.Text = "<div align = center > < b >" 逐 TextBoxl.Text & "</ b >' 


TextBoxl 에 입력된 본문은 TextLabell 에서 HTML 형식에 따라 다시 형식화되 
여 나타나게 된다. 

현재는 사용자가 TextBoxl 에 입력하는 본문이 자동적으로 TextLabell 의 중심에 
굵은 글자체로 현시된다. 


빼 


[Your oulpul should look Ilka lh« | 


Update! 


Your output should look like this. 

그림 7-1. HTML 형식화률 리용하여 수정된 TextLabel 결과 


Charset 

Domain 

Horn© 


1 


j 」 

그림 7-2. 실례 UstBox 


③ ListBox (목록칸)콘트롤 

선택할수 있는 여 러 개의 본문항목들을 표시 하는 콘트롤이다. 
실례로 그림 7-2 와 같은 형태의 ListBox 를 만들자. 

도구창에세고 stBox 콘트롤을 선택하여 홈에 배치한 다음 속성 
창에서 list 속성을 찾는다. 

이 속성 의 오른쪽에 있는 입 력칸을 눌러 목록속성 편집 대 화칸 
을 연다. 목록에 항목을 넣 기 위해 편집기의 밑에 있는 본문칸에 항목을 입력한다. 
목록에서 첫 항목으로 Charset 를 입력한 다음 Insert 단추를 찰칵한다. 

같은 방법으로 목록에 Domain , Home , Host , Language , Path , User 를 추가한다. 



그림 7-3. UstBox 의 목록속성편집대화창 
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그림 7-3 과 같이 항목들이 차례로 정돈되여 들어갔는가를 확인한 다음 OK 단추를 
찰칵한다. 

이 콜라스는 코드로 창조할수도 있다. 

DIM hListBox AS ListBox 

hListBox = NEW ListBox (Parent AS Container ) 

Count 속성 

목록에 등록된 항목의 개수를 돌려주는 속성이다. 항목의 개수를 셀 때에는 제일 
첫 항목을 0으로 하여 세기 시작한다는것을 항상 명심하여 야 한다. 

List (첨 수) 속성 

목록칸에 등록되 여있는 항목들을 선택 할수 있게 해 주는 속성 이 다. 

[실례 2] 

ss = listBoxl . list ( l ) 

이때 변수 ss 에는 목록칸의 두번째 항목의 내용이 들어간다. 

Text 속성 

목록칸에서 선택된 항목을 돌려준다. 

Add 메쏘드 


형식 


add (항목 [ 

, 첨수]) 


목록칸에 첨수로 지적된 위치에 기호렬로 된 항목을 추가하는 메쏘드이다. 

첨수는 0부터 시작된다. 

만일 첨수가 지적되지 않으면 목록칸의 제일 마지막항목으로 추가된다. 

[실례 3] 

listBoxl . Add ( “김순희” , 1) 

Remove 메쏘드 

Remove (첨 수) 

첨수로 지적된 항목을 목록칸에서 삭제한다. 

Refresh 0 //^— 

목록칸의 내용을 다시 현시하여주면서 목록칸의 속성들을 재정리한다. 

목록칸에서 프로그람적으로 항목들을 추가하거나 제거한 경우에는 refresh 메쏘드 
를 호출한 다음에 야 count 속성 값을 러 용할수 있다. 
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④ ComboBox (복합칸)론트롤 

본문칸과 목록칸이 결합된 콘트롤로서 건반으로부터 문자를 입력할수도 있고 목록 
으로부터 항목을 선택할수도 있다. 

홈에 복합칸을 만드는것은 목록칸을 만드는것과 비슷하지 
만 조금 차이 나는 점도 있다. 

실례로 홈에 그림 7-4 와 같은 복합칸을 만들어보자. 

도구창에서 ComboBox 콘트롤을 선택하여 홈에 배치한 다 
그림_ 7 _ 4 . 복합칸 g 트를의 실례 음 속성 창문으로 가서 i ist 속성 을 찾는다. 

이 속성 의 오른쪽에 있는 입 력칸을 찰칵하면 목록속성 편 
집을 위한 대화칸이 열린다. 이때 Pick an item 이 첫 항목으로 항상 표준적으로 나와 
있는데 이것을 그대로 리용하려면 Insert 단추를 찰칵한다. 

목록에 Iteml , Item 2, Item 3, Item 4 를 추가한다. 


Pick an item 



Iteml 
Item 2 
Item 3 
Item 4 



그림 7-5. 목록속성편집기 


그림 7-5 에서 보는바와 같이 항목들이 차례로 정돈되여 
들어갔는가를 확인한 다음 OK 단추를 찰칵한다. 

목록이 다 추가된 다음 홈에서 보면 복합칸은 목록칸과 
달리 마치도 본문칸처럼 보인다. 

이 들라스는 코드로 창조할수도 있다. 

DIM hComboBox AS ComboBox 
hComboBox=NEW ComboBox (Parent AS Container ) 

복합칸의 속성과 메쏘드들은 목록칸과 거의 비숫하다. 

목록칸이나 복합칸과 갈은 선택콘트롤들의 가장 큰 우점은 사용자들이 자료를 부 
정 확하게 타자할수 있는 가능성 을 감소시켜 준다는것 이 다. 

⑤ Frame (틀)튼트롤 
경계를 가지는 용기와 같은 콘트롤이다. 


| Plckanltem 一]」」 
그림 7-6. 설계시의 ComboBox 
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이 콜라스는 코드로 창조할수도 있다. 

DIM hFrame AS Frame 

hFrame = NEW Frame (Parent AS Container ) 

Frame 에서 중요한것은 그것이 창문안의 창문과 같이 동작한다는것 이다. 

Frame 에 고정시킨 임의의 콘트롤은 Frame 의 한 부분으로 된다. 

즉 Frame 안에 단추나 검사칸과 같은 다른 콘트롤을 배치하면 그것들은 Frame 이 
움직일 때 함께 움직인다. 

그림 7-7 에 여러개의 콘트롤을 포함한 Frame 의 실례를 주었다. 


ToggieSutlonl 


그림 7-7. Frame 의 실례 

⑥ ToggleButton (토굴단추)콘트롤 

한번 찰칵하면 설정되고 다시 한번 찰칵하면 설정이 해제되는것과 같은 기능을 수 
행하는 단추콘트롤이다. 이 콘트롤은 일부 전자제 품들에서 하나의 단추로 켜 고 다시 
한번 눌러 끄는 동작을 모방한것 이 다. 

이 콜라스는 코드로 창조할수도 있다. 

DIM hToggleButton AS ToggleButton 
hToggleButton = NEW ToggleButton (Parent 
Value 속성 

이 속성은 단추의 누름상태를 반영한 론리형속성이다. 

만일 ToggleButton 단추를 찰칵하면 Value 속성값이 
TRUE 로 설정되고 다시한번 찰칵하면 FALSE 로 설정된다. 

⑦ Checkbox (검사칸)콘트롤 
어떤 대상에 대하여 on/off 로 선택하게 하는 콘트 

롤로서 두가지 경우를 가진 대상들의 상태를 구분하여 
표시 할 때 리용한다. 

실례로 매 학생에 대하여 제대군인인가/아닌가, 당원인가/아닌가，초급일군인가/ 
아닌가와 같은 내용을 확인하려고 할 때 검사칸콘트롤을 리용할수 있다. 

이 콜라스는 코드로 창조할수도 있다. 

DIM hCheckBox AS CheckBox 

hCheckBox = NEW CheckBox (Parent AS Container ) 


AS Container ) 



그림 7-8. 검사칸콘트를의 실례 




108 


0활활 @활■할■활 














체 7 장. 外표입형들 위한 론드톨 


Value 속성 

검사칸의 상태를 반영한 론리형속성이다. 사실 검사칸을 누를 때마다 Value 속성 
값이 TRUE 와 FALSE 로 서 로 바뀌는데 검사칸에 검사기호가 있을 때 에는 Value 속성 
값이 TRUE 로 설정된다. 

⑧ Panel (판) 

여러개의 콘트롤들을 묶어 배치할수 있는 용기와 갈은 기능을 수행하는 콘트롤로 
서 틀과 비슷하지만 표식 이 없는 차이점 이 있다. 

실례 로 그림과 같이 단일선택단추들을 묶어 배 치 할수 있다. 

이 들라스는 코드로 창조할수도 있다. - 

DIM hPanel AS Panel r RadioButtoni 


hPanel = NEW Panel (Parent AS Container ) 


好 RadioButton2 


⑨ RadioButton (단일 선택 단추)른트롤 

여러가지 선택가능성들가운데서 득 하나만을 선택하려고 할 그림 7-9 . 단일선택단추를 
때 리용되는 콘트롤이 다. 그러므로 단일선택 단추는 대부분 하나가 가진 Frame 

아니라 여러개를 하나의 그룹으로 묶어 러용한다. 

그룹화는 단일선택콘트롤들을 Panel 에 배치하는 
것으로 실현한다. 

실례로 학생의 성별은 남자/녀자 중 어느 한 항목 
에 해당된다. 

또한 학생경력도 제대군인/사회현직/직통생중 어 
느 한 항목에 해당된다. 

따라서 성별을 하나의 그룹으로，학생경력을 하나 
의 그룹으로 묶어 단일선택단추들을 배 치 할수 있다. 

단일선택단추들을 Panel 에 그룹화해놓으면 프로그람실행시 에 선택된 단일선택단추 
를 제외한 나머지 단추들은 자동적으로 선택이 해제된다. 즉 그룹가운데서 꼭 하나만 
이 선택된다. 

이 클라스도 코드로 창조할수 있다. 


이름 | 러일수 | 


O 남자 
ᄋ 녀자 



그림 7-10. 단일선택단추의 실례 


DIM hRadioBu 竹 on AS RadioButton 

hRadioBu 竹 on=NEW RadioButton (Parent AS Container ) 


프로그람작성실례 
① 프로젝트설계 

프로젝트이름: ThirdProject 
형 태: 도형사용자대면부 
홈이름: Forml 
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• 시작클라스 

• 모든 콘트롤들을 public 로 한다. 
대면부설계도 



② 대면부설계 


Button 1 

name 

Quitbtn 


Text 

QUIT 

Button 2 

name 

Updatebtn 


Text 

Update 

Label 1 

③ 코드작성 

Text 

Enter some text 


- 홈을 열 때의 사건수속 
PUBLIC SUB Form _ Open () 

ME . Caption = " *** ThirdProject *** " 

END 

- Quit 단추를 찰칵할 때의 사건수속 
PUBLIC SUB QuitBtn _ Click () 

Forml . Close 
END 

- Update 단추를 찰칵할 때의 사건수속 
PUBLIC SUB UpdateBtn _ Click () 

TextLabell . Text = "<div align = center > < b >" & TextBoxl.Text & "</ b >" 
END 
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- 마우스를 TextBoxl 에 가져갈 때의 사건수속 
PUBLIC SUB TextBoxl_enter () . 

TextBoxl . Clear 
END 

- 마우스가 TextBoxl 을 벗어날 때의 사건수속 

PUBLIC SUB TextBoxl _ Leave () . 

TextLabell.Text = "<div align = center > < b >" & TextBoxl.Text & "</ b >" 
TextBoxl . Text = "<Enter text here 〉" 

End 

코드의 첫행은 HTML 의 형식을 러용하여 TextBoxl 의 문자렬을 중심에 배치하고 
굵은 서체로 설정하였다. 

두번째행에서는 마우스가 본문칸을 떠날 때 〈Enter text here > 라는 통보가 항상 
나타나도록 하였다. 

- 마우스로 홈을 한번 찰칵하였을 때의 사건수속 
Form_MouseDown () 

UpdateBtn.Hide 

End 

이 코드에 의해 사용자가 단추를 사용할 필요가 없을 때 홈을 한번 눌러 단추를 
숨기도록 하였다. 

- 마우스로 흠을 두번찰칵했을 때의 사건수속 

Form _ DblClick () 

UpdateBtn . Show 
End 

사용자가 Update 단추를 리용하여야 할 경우에는 홈을 두번 
찰칵한다. 

홈을 한번 찰칵하여 Update 단추를 숨기고 두번찰칵하여 다시 보이게 하는 동작은 
프로그람을 처음으로 리용하는 사용자는 알수 없다. 이것을 ToolTip 속성으로 해결할 
수 있다. 

Update 단추를 선택하고 속성창문을 연 다음 ToolTip 속성을 찾는다. 

세점 (...) 이 있는 회색의 오른쪽항목을 선택하면 새로운 편집창문이 펼쳐진다. 
여기에 다음과 같은 본문을 입력한다. 

Click < b > (or double - click ) </ b > on the form to hide < b > (or show ) </ b > me . 
마우스를 Update 단추에 가져가면 그림 7-12 와 같은 형식화된 통보문이 현시된다. 
속성창에서 세점 이 있는 항목은 새로운 대화칸을 펼칠수 있다는것을 의미한다. 


Click (or 

double-click) on the 
form to hide (or 
show) me . 

그림 7-12. ToolTip 실례 
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- ComboBox 의 항목을 선택할 때의 사건수속 

사용자가 ComboBox 에서 무엇인가를 선택하면 항목은 변화되며 이 변화는 
Change 사건을 발생한다. 여기에 아래와 같은 코드를 입력한다. 

PUBLIC SUB ComboBoxl_Change () 

DIM result AS String 

result = "<div align = center > < b >" & Trim ( ComboBoxl . Text ) & "</ b >" 
TextLabell.Text = result & " was selected from the ComboBox " 

END . . . . 

복합칸에 새로운 항목의 추가나 삭제를 위 해 PlusBtn 와 N Plckanltem 3 -tJJ 
MinusBtn 이 라는 두개 의 단추를 홈에 추가한다. (그림 7-13) 그림 7-1 3. 추가삭제단추의 추：^. 


- PlusBtn 단추를 찰칵할 때의 사건수속 
PUBLIC SUB PlusBtn _ Click () 

DIM Item AS String 
DIM Numltems AS Integer 
ComboBoxl . Refresh 
Numltems = ComboBoxl . Count 
IF Numltems = 0 THEN 
Item = "Pick an Item ” 

ELSE 

Item = "Item ’， & Str ( Numltems ) 
ENDIF 

ComboBoxl . Refresh 
ComboBoxl . Add ( Item , Numltems ) 
END 

- MinusBtn 단추를 찰칵할 때의 사건수속 
PUBLIC SUB MinusBtn _ Click () 

DIM Numltems AS Integer 
ComboBoxl . Refresh 
Numltems = ComboBoxl . Count 
IF Numltems > 0 THEN 
DEC Numltems 
IF Numltems <> 0 THEN 

ComboBoxl . Remove ( Numltems ) 
ENDIF 

ComboBoxl . Refresh 
ENDIF 
END 

- ListBoxl 에서 항목을 선택할 때의 사건수속 
PUBLIC SUB ListBoxl _ Click () 
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IF Trim(ListBoxl. Text) = "System. Charset" THEN 
T extLabel 1. Text = System. Charset 
ELSE IF Trim (ListBoxl. Text) = "Domain" THEN 
T extLabel 1. T ext = System. Domain 
ELSE IF Trim (ListBoxl. Text) = "Home” THEN 
T extLabel 1. T ext = System. Home 
ELSE IF Trim (ListBoxl. Text) = "Host，’ THEN 
TextLabel 1. Text = System. Host 
ELSE IF Trim (ListBoxl. Text) = "Language" THEN 
T extLabel 1. T ext = System. Language 
ELSE IF Trim (ListBoxl. Text) = "Path" THEN 
TextLabel 1. Text = System. Path 
ELSE IF Trim (ListBoxl. Text) = "User” THEN 
TextLabel 1. Text = System. User 
ENDIF 
END 

- ToggleButtonl 단추를 찰칵할 때의 사건수속 
PUBLIC SUB ToggleButtonl_Click() 

IF ToggleButtonl. Value = TRUE THEN 
Framel.Text = "Toggledl down" 

ELSE 

Framel.Text = "Toggledl up’’ 

ENDIF 

END 

- ToggleButton2 단추를 찰칵할 때의 사건수속 
PUBLIC SUB ToggleButton2_Click() 

DIM result AS String 
IF ToggleButtonl Value = TRUE THEN 
Framel.Text = ” Toggled2 down" 

ELSE 

Framel.Text = ” Toggled2 up’’ 

ENDIF 

END 

코드에서는 ToggleButton 단추의 Value 속성값을 검사한 다음 그 상태를 Framel 
의 본문속성에 나타나게 하였다 . 

- CheckBoxl 을 찰칵할 때의 사건수속 
PUBLIC SUB CheckBoxl_Click() 

DIM outlinel AS String 
DIM outline2 AS String 
DIM outline3 AS String 


IF CheckBoxl.Value = TRUE THEN 
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Checkbox!. Text = ”1 was picked” 
ELSE 

Checkboxl. Text = "Checkboxl ” 
ENDIF 
END 

- CheckBox2 을 찰칵할 때의 사건수속 
PUBLIC SUB CheckBox2_Click() 

IF CheckBox2. Value = TRUE THEN 

Checkbox2.Text = "I was picked” 
ELSE 

Checkbox2. Text = ’’ Checkbox2 ” 
ENDIF 
END 

- CheckBox3 을 찰칵할 때의 사건수속 
PUBLIC SUB CheckBox3_Click() 

IF CheckBox3. Value = TRUE THEN 

Checkbox3. Text = ’’I was picked” 
ELSE 

Checkbox3. Text = ” Checkbox3 ” 
ENDIF 
END 

- RadioButtonl 을 찰칵할 때의 사건수속 
PUBLIC SUB RadioButtonl_Click() 

RadioButtonl.Text = f, HaHa RB2” 
RadioButton2. Text = ” RadioButton2” 
END 

- RadioButton2 를 찰칵할 때의 사건수속 
PUBLIC SUB RadioButton2_Click() 

RadioButton2.Text = "HaHa RBI” 
RadioButtonl. Text = "RadioButtonl" 
END 
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제 8 장. 파일 및 입출력관리 

이 장에서는 Gambas 에서의 파일관리와 입출력조작에 대 하여 취 급한다 . 

파일이 란 한마디로 말하여 자료들의 모임 이 다 . 

파일관리에는 필요한 파일 ( 등록부)들의 찾기 , 파일들의 속성을 알아내기，새로운 
파일 ( 등록부)의 창조 , 파일의 갱 신 , 파일 ( 등록부)제 거 등과 갈은 내 용이 속한다 . 

여기서 파일의 창조，갱신과 같은 입출력조작은 파일열기 , 자료의 읽기쓰기，파일 
닫기라는 세 단계를 반드시 거처야 한다 . 

① 파일열기 

디스크에 자료를 쓰거나 디스크로부터 자료를 읽어들이기전에 우선 파일이 열려야 
한다 . 

② 자료의 읽기 및 쓰기 

열린 파일로부터 자료를 읽어들이기 , 디스크에 자료쓰기，자료제거 , 자료갱신을 
한다 . 

③ 파일의 닫기 

파일의 닫기는 파일에 대한 자료처리를 다 진행한 다음 프로그람의 마지막단계에서 진행 
한다 . 


1. 입출력관리명령문들 


① OPEN 

형식 

OPEN 파일이름 FOR [READ] [WRITE] ffcREATE 
APPEND] [DIRECT] [WATCH] AS # 파일지적자 


◦PEN 은 자료의 읽 기 쓰기 및 창조，추가를 위하여 과일 을 열 기한다 . 

READ ： 자료읽 기방식 으로 파일을 연다 . 

WRITE ： 자료쓰기방식 으로 파일을 연다 . 이 때 파일경 로는 도중에 절대 로 변하지 
말아야 한다 . 

CREATE ： 새로운 파일을 창조하는 방식이다 . 

지적한 파일이 존재하지 않으면 그 파일이름으로 새로운 파일이 창조된다 . 

그러나 지적한 파일이 존재하면 그 파일의 내용은 없어지고 같은 이름을 가진 새 
로운 파일이 창조된다 . 

APPEND ： 이 방식으로 파일을 열면 곧 파일지적자가 파일의 끝으로 이동하며 순 
차적으로 자료를 추가할수 있다 . 
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DIRECT ： 이 방식으로 파일을 열면 읽 기쓰기 를 다 진행할수 있다. 

WATCH ： 이 방식으로 열면 다음과 갈은 조건을 리용하여 파일을 검사할수 있다. 
파일로부터 적어도 한 byte 라도 읽을수 있으면 File _ Read () 사건이 호출되며 파일 
에 적어도 한 byte 쓸수 있으면 File _ Write () 사건이 호출된다. 

파일열기를 할 때에는 CREATE 방식이 지적되지 않는 한 파일이 반드시 존재하여야 
한다. 

파일지적자: 이 파라메터는 파일객체를 지적하는 변수이다. 

앞으로 파일에 대한 자료의 읽기쓰기명령문을 리용할 때에는 해당한 파일지적자를 
리용해 야 한다. 

② CLOSE 

CLOSE # 파일지적자 

CLOSE 는 OPEN 과 반대되는 함수로서 열려진 파일을 닫는다. 

파일을 닫을 때에는 다음과 갈은 뒤처리가 진행된다. 

우선 완충기에 남아있는 마지막부분의 자료를 물리적으로 디스크에 쓴다. 다음 자 
료파일의 끝에 끝표식 EOF 를 써 넣은 다음 완충기를 해제한다. 다음 파일지적자를 해 
제 한다. 

◦ PEN 과 CLOSE 는 프로그람에 서 항상 짝패처 럼 함께 리 용된 다. 

③ INPUT 

형식 

INPUT 변수1 [, 변수2 •••] 

또는 

INPUT # 파일지 적 자, 변수1 [，변수2 •••] 

표준입력으로부터 자료를 읽어 변수들에 차례로 넣는다. 

또는 파일지적자로 지적된 파일로부터 자료를 읽어들여 변수들에 차례로 넣는다. 

© LINE INPUT 

LINE INPUT 변수 
혹은 

LINE INPUT # 파일지적자, 변수 


표준입력으로부터 변수에 한개의 본문행을 읽어넣는다. 
혹은 파일로부터 변수에 한개의 본문행을 읽 어 넣는다. 
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[실례 13 

STATIC PUBLIC SUB MainO 
DIM hFile AS File 
DIM slnputLine AS String 
DIM lineCtr AS Integer 


OPEN "The Raven . txt " FOR READ AS # hFile 
‘ EofO 함수는 파일의 끝을 검사하는 함수이다. 

‘아래에서 구체적으로 본다. 

WHILE NOT Eof ( hFile ) 

LINE INPUT # hFile , slnputLine 
PRINT Str ( lineCtr ) & Chr (9) & slnputLine 
INC lineCtr 
WEND 

CLOSE # hFile 
END 


[주의] 

2 진파일 에 는 행바꾸기 기 호가 없으므로 2진파일을 읽 을 때 에는 LINE INPUT 명 령 
문이 아니라 READ 명령문을 리용해야 한다. 

⑤ READ 

형식 

READ 변수 [, 길이] 

혹은 

READ # 파일지적자, 변수 [, 길이] 

READ 는 파일 또는 표준입 력 으로부터 자료를 읽어 들이 는 함수이다. 

READ 는 입구자료를 2진자료로 취급한다. 

이때 2진자료의 자료형은 읽기조작을 하는 동안에 자료가 보관되는 변수의 자료형 
에 따라 결정된다. 

자료의 표현형 식은 WRITE 명 령문을 사용할 때의 표현형식과 같아야 한다. 

만일 변수가 기호렬이면 읽을 byte 수를 길 이로 지적해 야 한다. 

또한 길이의 값이 부수이면 자료파일끝에서부터 지적한 byte 수만큼 읽어들이며 길 
이값을 지적하지 않으면 자료파일로부터 전체 기호렬을 읽어들인다. 

[실례 幻 

READ # hFile , OneLine , -256 
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여기서 -256 은 읽어들이려고 하는 최대 byte 수이다. 

-256 대신에 다른 수를 쓸수 있지만 그 수를 읽은 자료를 기억하기 위한 변수의 최 
대크기로 제한시켜야 한다. 

© PRINT 


형식 

PRINT 식 i [(: | , ) 

식 2 •■•] [(: 

1，)] 


혹은 

PRINT # 파일지적자， 

식 1[(: 1 ,) 

식 2 •••] [( : 

1，)] 


표준출력 혹은 파일지적자로 지적된 파일에 식의 값을 출력한다. 

이때《:》은 련이어 기록한다는것을 의미하며《,》은 Tab 길이만큼 공백을 두고 출 
력 한다는것 을 의 미한다. 

⑦ WRITE 

형식 

WRITE 식 [，길이] 

혹은 

WRITE # 파일지적자, 식 [ , 길이] 


WRITE 는 표준출력 또는 파일 에 대 한 쓰기 를 진행한다. 

만일 출구하려는 식이 문자렬인 경우 쓰기해야 할 byte 수를 길이로 지적해야 한 


[실례 約! 

STATIC PUBLIC SUB MainO 
dim I as integer 
dim st as string 
dim filel , file 2 ,fl as file 

OPEN system . Path &/ ” infile . txt " FOR WRITE AS #filel 
FOR i = 1 TO 10 
WRITE # filel , Str ( i ) 

NEXT 

CLOSE #filel 


OPEN "八 isr/in 典 le . txt " FOR READ AS # file 2 
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FOR i = 1 TO 10 
INPUT # file 2, st 
ListBoxl . Add ( st ) 
NEXT 

CLOSE # file 2 


OPEN system . Path &/ ” / data " FOR CREATE AS #fl 
FOR i = 1 TO 9 
PRINT # fl , Str ( i ) 

NEXT 
CLOSE #fl 

OPEN system . Path &/ "/ data " FOR APPEND AS #fl 
FOR i = 10 TO 20 
PRINT # fl , Str ( i ) 

NEXT 
CLOSE #fl 
End 


⑧ SEEK 

형식 

SEEK # 파일지적자，위치 


SEEK 명 령 문은 다음번 읽기 /쓰기조작을 위한 자료지적자의 위 치를 정의 하여준다. 
만일 위치에 지적한 값이 부수이면 자료지적자는 파일끝에서부터 지적한 위치만큼 
거꾸로 움직 인다. 

지적자를 파일의 끝으로 움직이 려면 LofO 함수를 리용한다. 

[실례 4] 

’hFile 파일의 시작위치에로 이동 
SEEK # hFile , 0 

’hFile 파일의 마지막 다음위치에로 이동 
SEEK # hFile , Lof (# hFile ) 


’hFile 파일끝으로부터 lOObyte 위치에로 이동 
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SEEK # hFile , -100 
⑨ FLUSH 

형식 

FLUSH [# 파일지적자] 


FLUSH 명 령 문은 파일의 자료완충기내 용을 완료하기 위 하여 호출한다. 

파일지 적 자를 지 적하지 않으면 모든 파일들에 대 하여 완충기내 용을 다 완료한다. 
대체 로 FLUSH 는 쓰기조작을 여 러번 진행한 후에 프로그람이 나 부분프로그람을 
닫기전에 완충기 에 기 억되 여있던 모든 자료들을 모두 파일에 쓰기할 목적 으로 리용한 
다. 


2. 파일관리를 위한 표준함수들과 명령문들 

파일관리에 펼요한 표준함수들과 명령문들을 소개한다. 

① Access 

i 石 

Access (경로 [, 방식]) 


Access 는 파일에 접근할수 있는가를 결정 하는 함수이 다. 

경로로 지적한 파일에 접근할수 있으면 이 함수는 TRUE 값을 돌려준다. 방식으로 
는 gb . Read , gb . Write , gb . Exec 를 지적 할수 있 다. 

방식이 gb . Read 로 설정되였을 때 파일을 읽을수 있으면 함수는 TRUE 값을 돌려 
준다. 

방식이 gb . Write 로 설정되였을 때 파일에 쓰기할수 있으면 함수는 TRUE 값을 돌려 
준다. 

방식이 gb . Exec 로 설정되였을 때 파일이 실행될수 있으면 함수는 TRUE 값을 돌려 
준다. 

등록부에 대하여 gb . Exec 를 지적하면 등록부를 열람할수 있다는것을 의미한다. 
또한 우의 방식들을 OR 연산자로 조합하여 쓸수 있다. 

[실례 5] 

PRINT Access ("/ home / rabbit " , gb.Write OR gb . Exec ) 

PRINT Access ("/ root ", gb . Write ) 

② Dir 

형식 

Dir (등록부경로 _ 과일패턴]) 
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등록부경로에 있는 파일들가운데서 파일패턴에 맞는 파일들의 이름을 문자렬묶음 
으로 돌려주는 함수이 다. 

파일패턴이 지적되지 않은 경우에는 등록부에 있는 모든 파일들의 이름을 돌려준다. 
파일패턴에서는 LIKE 연산자를 러용하여 다음의 기호들을 조합하여 쓸수 있다. 


기호 

의 미 

* 

임의의 형태의 임의의 개수의 글자들 

? 

임의의 형태의 꼭 한개의 글자 

[ abc ] 

괄호안에 지적된 임의의 글자 

[ x - y ] 

괄호안에 지적한 구간에 놓이는 임의의 글자 

Tx - y ] 

괄호안에 지 적하지 않은 구간에 놓이는 임의의 글자 


이외에 기호《\》는 그뒤에 오는 문자를 패런기호로 해석하지 못하게 한다. 
[실례 6] 

’등록부내용인쇄 

SUB PrintDirectory (Directory AS String ) 

DIM sFile AS String 


FOR EACH sFile IN Dir ( Directory , ”*.*") 
PRINT sFile 
NEXT 
END 

③ Eof 

형식 

Eof (파일지 적자) 

파일의 끝에 도달한 경우 론리 값 TRUE 를 돌려 주는 함수이다. 
[실례 7] 

OPEN FileName FOR READ AS #hFile 
WHILE NOT Eof ( hFile ) 

LINE INPUT # hFile , OneLine 
PRINT OneLine 


WEND 
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CLOSE #hFile 


④ Exist 

형식 

Exist (경 로) 

파일 이 나 등록부가 존재 하면 TRUE 값을 돌려 주는 함수이다. 
만일 지적한 경 로가 존재 하지 않으면 FALSE 를 돌려준다. 
[실례 8] 


DIM sCurrentFileName AS String 

sCurrentFileName = " Raven . txt " 

IF Exist ( sCurrentFileName ) THEN 
. ’파일열기 
ELSE 

Message . Info (”파일- " & sCurrentFileName & " 이 존재 하지 않 
ENDIF 


⑤ IsDir / Dir ? 

형식 

IsDir (경로) 

경 로에 서 지 적한것 이 등록부인 경 우에 는 TRUE 값을 돌려 주는 함수이다. 경 로가 
존재하지 않거 나 등록부가 아니 면 함수는 FALSE 값을 돌려 준다 
[실례 9] 

PRINT IsDir ("/ etc / password ") 

False 

PRINT IsDir ( Application . Home &/ ". gambas ") 

True 

PRINT IsDir ("/ windows ") 

False 
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형식 

Stat (경로) 

파일 이 나 등록부에 대 한 정 보를 돌려 주는 함수이다. 

파일에 대한 정보로서는 형태，크기, 마지막수정날자 등이 있다. 

이 함수에 다음과 같은 파일 속성들이 러용될수 있다. 

.Group .Hidden .LastAccess .LastChange .LastUpdate 
. Mode . Perm . SetGID . SetUID . Size 
.Sticky .Time .Type .User 
[실례 10] 

WITH Stat ("/ home ") 

PRINT . Type = gb . Directory 
PRINT Round (.Size / 1024)； " K " 

END WITH 
결과 
True 
4 K 

⑦ Temp / Temp $ 

형식 

Temnv'RO 

림시적인 파일에 붙일수 있는 유일한 이름을 돌려준다. 만들어진 파일이름은 /tmp 
등록부에 존재한다. 

[실례 11] 

PRINT Temp $ () 

결과 

/ tmp / gambas . 0/12555.1. tmp 

⑧ Lof 

형식 

Lof (파일지 적자) 


열려진 파일의 길이를 돌려준다. 
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[실례 12] 

’Gambas Class File sCurrentFileName AS String sCurrentFileLength AS 

Integer 


PUBLIC SUB Form_Open() 

DIM slnLine AS String 
DIM hFileln AS File 

sCurrentFileName = "The Raven, txt" 

IF Exist (sCurrentFileName) THEN 
OPEN sCurrentFileName FOR READ AS hFileln 
sCurrentFileLength = Lof (hFileln) 

WHILE NOT Eof (hFileln) 

LINE INPUT tthFileln, slnLine 

Text Areal. Text = TextAreal.Text & Chr(13) & Chr(10) & 

slnLine 

WEND 

CLOSE hFileln 
ELSE 

Message. InfoC'File " & sCurrentFileName & " does not exist.") 
ENDIF 
END 
⑨ COPY 

형식 

COPY 원천파일경로 TO 목적파일경로 


COPY 함수는 원천파일을 목적파일로 복사한다 . 

이때 목적파일경로가 원천파일경로와 일치하면 안된다 . 

이 함수를 리용하여 등록부는 복사할수 없다 . 

[실례 13] 

’환경설정파일을 보관한다 

COPY System. Home &/ ". gambas/gambas. conf" TO 
"/ mnt/save/gambas. conf. save" 

⑩ KILL 
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형식 

KILL 경로 

KILL 함수는 경 로에 존재 하는 파일 을 완전히 제 거한다. 

⑪ RENAME 

형식 

RENAME 본래파일 이름 AS 새파일 이름 

RENAME 은 파일 이 나 등록부의 이 름을 새 이 름으로 변경한다. 

⑫ MKDIR, RMDIR 

형식 

MKDIR 등록부이름 
RMDIR 등록부이름 

MKDIR 함수는 파일체계에서 등록부를 창조할 때 리용하며 RMDIR 는 등록부를 
제 거할때 러 용된 다. 

[실례 14] 

MKDIR 1, file：/rittingj/My Documents/Gambas/test” 

RMDIR ,l file : / rittingj/My Documents/Gambas/test" 
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제 9 장. 도형처리 


Gambas 에서는 DrawingArea 콘트롤과 PictureBox 콘트롤， MovieBox 콘트롤을 
리용하여 정지화상 혹은 동화상을 실현한다. 

여기서 PictureBox 콘트롤은 단순히 이미 주어진 화상파일을 표시하는 기능을 수 
행한다. MovieBox 콘트롤도 이 미 주어 진 동화상파일 을 재 생 하는 기 능을 수행한다. 

그러나 DrawingArea 콘트롤에서 는 우의 두 콘트롤과는 달러 이미 주어진 그림 이 
아니라 프로그람작성자의 요구대로 그림을 그리거나 도형처리를 할수 있다. 

DrawingArea 콘트롤에서 도형처리는 Draw 믈라스, picture 콜라스, image 콜라스 
를 리용하여 진행한다. 

미술가가 그림을 그리는것과 비교하여 말하면 DrawingArea 콘트롤은 그림을 그리 
는 화판이고 picture 콜라스와 image 콜라스는 빈 그림종이 또는 그림을 그린 종이장이 
라고 말할수 있으며 Draw 콜라스는 붓, 수채화구와 같은 그림그리기도구라고 말할수 
있 다. 

미술가가 그림을 그리기전에 화판과 그림도구들을 준비하는것처럼 해당 
DrawingArea 콘트롤에 그림을 그리려면 그러기전에 Draw 클라스의 Begin 메쏘드를 먼 
저 호출해야 한다. 

또한 도형처리를 끝내려면 Draw 클라스의 End 메쏘드를 반드시 호출해야 한다. 

이 장에서는 도형처리에 리용되는 콘트롤과 콜라스에 대하여 그의 대표적인 속성 
과 메쏘드를 구체적으로 학습하고 프로그람작성과정을 통하여 정통하도록 한다. 

1. DrawingArea 콘트를 

DrawingArea 는 도형처리를 할수 있는 콘트롤로서 그리기구역을 나타낸다. 

속성으로는 Name , X , Y , Width , Height , Visible , Enablel , Font , Background , 
Foreground , Mouse , Border , Cached 가 있으며 메쏘드로서는 Clear , Delete , 
Drag , Grab , Hide , Lower , Move , Raise , Refresh , Resize , Setfocus , Show 가 
있 다. 

대부분 속성들과 메쏘드들은 앞에서 다른 콘트롤들을 학습할 때 취급한것이므로 
여기서는 일부 대표적인것만 설명한다. 

① Background , Foreground 속성 

이 속성들은 DrawingArea 콘트롤의 배경색과 전경색을 설정하는 속성이다. 

② Cached 속성 

그리 기구역의 내용이 기 억기에 고속완충된다는것을 지적하여주는 론리형속성 이 다. 
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이 속성을 True 로 설정 하면 VB 에서 AutoRedraw 속성을 리 용할 때와 같이 그림 그리 
는 결과가 즉시 반영되며 또한 다른 창문에 의해 가리워졌던 부위도 인차 재생된다. 

도형을 지우려고 clear 메쏘드를 리용하는데 이때에도 Cached 속성을 True 로 설정 
해주는것이 좋다. 

[실례 1] 

Drawingareal . Cached = TRUE 

③ clear 메쏘드 

Clear 메쏘드는 Drawing Area 콘트롤의 그림을 지우며 모든 화소점들을 령으로 설정 
한다. 

④ refresh 메쏘드 

refresh 메 쏘드는 DrawingArea 콘트롤에 그림을 현시 하여 준다. 

[실례 幻 

Drawingarea 2. clear 


Drawingarea 2. refresh 
⑤ Resize 메쏘드 
형식 

Resize (너비, 높이) 

DrawingArea 콘트롤의 크기를 설정한다. 


2. Draw 클라스 


1) 속성 

① FillColor 

FillColor 는 다각형을 그릴 때 다각형의 내부색을 설정하거나 돌려주는 옹근수형속성 
이다. 

② FillStyle 

다각형의 내부를 색칠할 때 그 내부형태를 설정하거나 돌려주는 옹근수형속성이다. 
0~14까지의 옹근수를 줄수 있다. 

내부형 태를 표현하는데 리용되는 표준적 인 상수들도 있다. 

BackDiagonal Cross CrossDiagonal Densel 2 

Dense 37 Dense 50 Dense 6 Dense 63 
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Dense 88 Dense 94 Diagonal Horizontal 

None Solid Vertical 

③ FillX 와 FillY 

FillX 와 FillY 속성들은 다각형의 내부를 그릴 때 시 작점 의 X/Y 좌표를 설정하거 나 
돌려 주는 옹근수형 속성 이 다. 

④ Font 

Font 는 본문표시 에 리 용되 는 서체를 설정 하거 나 돌려 준다. 


[실례 3] 

Draw . Font . Name = " Lucida " 

Draw . Font . Bold = TRUE 
Draw . Font . Italic = FALSE 
Draw . Font . Size = "10" 

Draw . Font . StrikeOut = FALSE 
Draw . Font . Underline = FALSE 

⑤ Invert 

Invert 속성은 그리 려는 도형들의 화소색을 반전하겠는가를 규정하는 론리형속성 이 다. 

⑥ LineStyle 와 LineWidth 

LineStyle 속성은 도형의 테두러선을 그릴 때 선의 형태를 설정하거나 돌려주는 
옹근수형 속성 이 다. 0~5까지 의 옹근수값을 설정할수 있 다. 

LineStyle 속성 에서 리 용할수 있는 상수들도 정의되 여있다. 

Dash Dot DashDot 
DashDotDot None Solid 

LineWid 比!속성은 선의 굵기를 설정 하거나 돌려 주는 옹근수형속성 이 다. 

수값이 들수록 선의 굵기가 커진다. 

⑦ Transparent (투명도) 

Transparent 속성은 그리기구역에 본문을 표시 할 때 배경색 이 나타나도록 하겠 
는가 아니 면 나타나지 않도록 하겠는가(즉 투명하게 보이 도록 하겠는가)를 지 적 하는 
론리 형 속성 이 다. 

2) 메쏘드 

① begin 

형식 

draw.heein CD) 

D 로 지적한 그리기구역 에 대한 그림그리기시 작을 선포한다. 

여기서 D 는 DrawingArea 콘트롤을 지적하는 객체형변수를 의미한다. 

② end 
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형식 

draw , end 

그리기구역 에 대한 그림그리기를 끝낸다. 

③ text 

형식 

draw.text (무자렴. x . v 「. 너비. 농이. 위치합추기" H 
그러기구역의 x , y 위치에 과라메터에서 지적한 너비, 높이를 가진 직4각형데두러 
안에 문자렬을 표시하고 위치맞추기 ( left , right , center ) 를 진행한다. 

④ Point 

형식 

draw , point ( x , y ) 

draw , point 는 그리기 구역의 x , y 위 치 에 하나의 화소점을 그린다. 

⑤ rect 

형식 

draw . rect ( x , v , 너비, 높이) 

draw , rect 는 x , 모를 시 작점으로 하고 파라메터 에서 지적한 너비，높이를 가지는 
직4각형을 그린다. 

⑥ line 

형식 

_ draw , line ( XI . Yl . X 2, Y 2)_ 

Line 은 직선을 그린다. 

xl , yl 는 선분의 시작위치 x 2, y 2 는 선분의 끝위치를 나타낸다. 

⑦ ellipse 

형식 

_ Ellipse ( X . Y , 너비, 높이「, 시작각, 부채형의 각]) _ 

이 메쏘드는 타원과 원，부채형을 그린다. 

원은 타원에서 너비와 높이가 같은 경우로 본다. 
x , y : 원 또는 타원의 중심위치 
너비 : 타원의 수평직경(너 비) 

높이 : 타원의 수직 직 경(높이 ) 

시작각: 부채형을 그릴 때 부채형의 시작각. 

부채형의 각: 부채형을 그릴 때 부채형의 각 . 

⑧ Polygon 
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형식 

draw . Polygon (점자리표 AS Integer [ ]) 

Polygon 메쏘드는 n 개의 정점을 가진 다각형을 그린다. 

점 자리 표는 정 점 들의 자리 표를 포함하는 옹근수묶음이다. 

자러표들은 X， y 형식으로 되 여있으므로 다각형의 매 정점에 대하여 두개의 옹근수 
가 대응되게 된다. 


⑨ Polyline 

형식 

draw . Polyline (정 점자리 표 AS Integer [3:J 

draw . Poly line 는 n 개의 정점으로 이루어진 꺾인선을 그린다. 

자개의 정점에 첫 정점을 다시 첨가하면 다각형이 그려진다. 

⑩ tile 

형식 

draw . tile (그림 AS Picture , x , y , 너비，높이) 

Tile 메쏘드는 마치도 벽에 타일을 붙이듯이 그리기구역의 x , y 위치에 지적한 너비 
와 높이로 그림을《불인》다. 

⑪ image 

draw , image (화상 AS image , x , y ) 

draw . image 메쏘드는 화상을 그리기구역의 지적한 위치에서부터 그린다. 

메쏘드를 습득하는 가장 좋은 방법은 매개 메쏘드들을 리용하는 코드를 작성하여보는것 
이다. 

이를 위하여 Draw 클라스에 있는 거의 모든 메쏘드들의 사용방법을 보여주는 실례 
프로그람을 작성하여보자. 

[실습 1] 

① 프로젝트설계 

프로젝트 이름 : gfxDemo 
형태: 도형사용자대면부 
홈이름: Forml 

• 시 작콜라스 

• 모든 콘트롤들을 public 로 한다. 

대면부설계도 
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Forml 

width 

530 


height 

490 

Button 1 

name 

TextBtn 


text 

Text 


width 

60 


height 

25 

Button 2 

name 

InvRectBtn 


text 

InvRect 


width 

60 


height 

25 

Button 3 

name 

EllipseBtn 


text 

Ellipses 


width 

60 


height 

25 

Button 4 

name 

FillRectBtn 


text 

FillRect 


width 

60 


height 

25 

Button 5 

name 

Btn 


text 

FillPoly 


width 

60 


height 

25 

Button 6 

name 

PolyLineBtn 


text 

PolyLine 


width 

60 


height 

25 

Button 7 

name 

TileBtn 
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text 

Tileimg 

width 

60 

height 

25 

name 

QuitBtn 

text 

Quit 

width 

60 

height 

25 


DrawingArea name da 

대면부설계도를 참고하면서 우의 속성을 설정한다. 

③ 코드작성 

- constructor 사건수속 

PUBLIC SUB _ new () 

’그러기구역의 너비, 높이설정 
da.W = forml.W - 10 
da.H = forml.H - 45 
’그러기 시작 
Draw . Begin ( da ) 

’선두께를 체계설정으로 2로 설정 
Draw . LineWidth = 2 
END 

Constructor 는 객체가 초기화될 때 실행되는 프로그람이다. 

따라서 프로그람이 기동하여 홈이 열리기전에 _ new () 사건수속이 먼저 호출되며 
그다음 Form_Open 사건수속이 실행된다. 

_ new () 사건수속에서는 대체로 자료의 초기화, 프로그람의 초기화공정이 진행된다. 

- 홈열기 사건수속 

PUBLIC SUB Form _ Open () 

Forml.Text = " Drawing Examples " 

END 

- Quit 단추를 찰칵할 때의 사건수속 

PUBLIC SUB QuitBtn _ Click () 

Draw . End ’ 그리기 끝내기 
ME . Close ’ Forml 닫기 
END 

- Text 단추를 찰칵할 때의 사건수속 

PUBLIC SUB TextButton _ Click () 

DIM counter AS Integer 
da . Clear 

Draw . ForeColor = color . Black 


’순환계수변수 
’현재 그리기구역 지우기 
’전경색을 검은색으로 설정 
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More Sample Tex 
More Sample Tox 
More Sample Tex 
More Sample Tex 
More Sample T©x 
More Sample Tex 
More Sample Tox 
More Sample Tex 
More Sample Tex 
More Sample T©x 


’현재의 서체를 Arial 로 설정 
’굵은체로 설정 
’사선체를 해제 
’밑선체를 해제 
’글자크기를 16으로 설정 
’순환을 시작하여 10번 순환 


draw . Font . Name = Arial 
draw . Font . Bold = TRUE 
draw . Font . Italic = FALSE 
draw . Font . Underline = FALSE 
draw . Font . Size =，’16” 

FOR counter = 0 TO 9 

’본문을 출구하고 y 위 치를 40 씩 증가 
draw . Text ("Sample Text ", 10, 10 + 40* counter , 100,60) 

’본문의 너비와 높이는 각각 100, 60로 설정 
NEXT ’순환끝 

draw . Font . Size = ”24” ’글자크기는 24로 설정 

Draw.ForeColor = color . Blue ’전경색을 푸른색으로 설정 
FOR counter = 0 TO 9 ’두번째 순환도 10번 

’첫번째 순환과 차이 나는것은 본문의 x 위 치를 200으로 설정 
draw . Text (’’More Sample Text ", 200,10 + 40* counter , 100,60) 
NEXT 

da . Refresh ’ 그러기 구역 연시 

END ’ 


Text 단추를 찰칵하였을 때의 실행결과 


IZij 9-2 Text E.^S ill 21 i 과 

- InvRect 단추를 찰칵할 때의 사건수속 

PUBLIC SUB InvRectBtn _ Click () 

DIM i AS Integer 

da . Clear ’ 그러기 구역 지우기 

’fill style 을 None 으로 설정. 즉 그릴때 아무런 형태도 없다. 
draw.FillStyle = fill . None 

draw.ForeColor = color , cyan ’그리기색을 청록색으로 설정 
draw . Invert = TRUE ’청록색사각형이 붉은색으로 나타난다. 

FOR i = 0 TO 15 ’16번순환 


= = = = = 
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’직 4 각형의 시작점위치와 끝점위치를 5 씩 증가한다 . 
Draw.Rect(5+5*i, 5+5*i, da.W/2+5*i, da.H/2 + 5*i) 

’짝수번째순환에서는 Invert 속성을 바꾸어준다 . 

IF i MOD 2 = 0 THEN 
draw. Invert = FALSE 
ELSE 

draw. Invert = TRUE 
ENDIF 
NEXT 순환끝 

draw.Invert = FALSE ’invert 을 off 로 설정 (색 반전 중지 ) 

draw.Forecolor = color.Black ’ 현재 전경색을 검은색으로 설정 
draw. Point (da. W/2, da.H/2) ’ 화면의 가운데 점 그리기 

’ 방금 그린 첫 중심점 으로부터 한 화소수만큼 상하좌우로 움직 여 십 자선을 그린다 . 
draw. Point (da. W/2-1, da.H/2) 
draw. Point (da. W/2+1, da.H/2) 
draw. Point (da. W/2, da.H/2-1) 
draw. Point (da. W/2, da.H/2+1) 
da. Refresh ’ 그림 연시 . 

END 

실행결과 



그림 9-3. InvRect 단추를 찰칵하였을 때의 결과 
화면중심에 작은 검은 십자점 


- Ellipses 단추를 찰칵할 때의 사건수속 
PUBLIC SUB EllipseBtn_Click() 
DIM xl AS Integer 
DIM x2 AS Integer 
DIM yl AS Integer 
DIM y2 AS Integer 
DIM i AS Integer 

’선의 두께를 변화시킬 
DIM 1 width AS Integer 


’작업변수 소개 


’순환변수 소개 

때 선두께값을 보관하기 위한 변수 
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da. Clear ’시 작전에 그리기 구역 지우기 

xl = 50 ’ 초기값설정 

yl = 50 

x2 = 100 

y2 = 100 

Draw. ForeColor = color. DarkBlue ’전경색을 검 푸른색으로 설정 

draw.FillStyle = fill.Solid ’ 채우기 형태를 solid 방식으로 설정 

FOR i = 0 TO 360 STEP 30 ’12 번까지의 순환을 설정 

IF i MOD 45 = 0 THEN ’ 각이 90 도의 배수이면 색설정을 변경 

draw.FillColor = color. Yellow 
ELSE 

draw.FillColor = color. Red 


ENDIF 


’ I 값으로 시작하여 30 도 회전한 12 개의 타원토막을 그린다 . 
Draw. Ellipse (xl, yl, x2, y2, i, 30) 

NEXT 


draw.FillStyle = fill. None'fill 
draw. ForeColor = color. Black 
’몇개의 선분들을 그리자， 
xl = da.W/2-25 
yl = da.H/2 
1 width = 1 


style 을 없엔다 . 

’그러기전경색을 검은색으로 설정 
x 자리표=화면의 수평중심 - 25 

’y 자리표 = 화면의 수직중심위치 
’선분의 두께는 1 픽셀로 설정 


FOR i = 10 TO 200 STEP 25 

’y 축을 따라 25 픽셀씩 움직 이면서 8 번 순환 
draw.Line(da.W/2, i, da.W/2 + 150, i) ’ 선분그리기 

INC 1 width ’ 선분의 두께변수 증가 

draw. Line Width = 1 width ’ 새로운 두께 설정 

NEXT ’ 순환끝 

draw.LineWidth = 2 ’ 표준그러기 두께를 2 로 설정 

’다른 순환을 리용하여 몇개의 타원을 그러자 
FOR i = 1 TO 40 STEP 3 ’13 개 만든다 
D raw. E11 ipse (xl -i* 5, yl, 75, 200) 

’수평축을 따라 한번 왼쪽으로 이동 
Draw.Ellipse(xl+i*5, yl, 75, 200) 

’수평축을 따라 한번 오른쪽으로 이동 
IF i MOD 2 = 0 THEN ’ 순환에서 짝수번째 이면 색갈변화 


draw. ForeColor = color. Red 


ELSE 


draw. ForeColor = color. Black 


ENDIF 

NEXT ’ 순환끝 

da. Refresh ’ 그러기 한 내용표시 

END ’끝 
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- Ellipses 단추를 찰칵하였을때의 실 행결과 



그림 9-4. Ellipses 단추를 찰칵하였을 때의 결과 
- FillRect 단추를 찰칵할 때의 사건수속 
PUBLIC SUB FillRectBtn_Click() 

DIM xl AS Integer ’ 국부변수 소개 

DIM x2 AS Integer 
DIM yl AS Integer 
DIM y2 AS Integer 
da. Clear 

xl = 20 
yl = 80 
x2 = xl+80 
y2 = yl+150 

draw.FillColor = color. Red ’ 그림 그리기색을 붉은색으로 설정 
draw.FillStyle = fill.Horizontal ’ 수평선형채우기형태 설정 
’직 4 각형을 그린다 . 이때 수평선형태로 문양이 채워전다 . 

Draw.Rect(xl,yl,x2, y2) 

xl = 220 ’ 직사각형의 왼쪽꼭대기구석점 설정 

yl = 180 

x2 = xl+300 ’ 직사각형의 오른쪽아래구석점 설정 

y2 = yl+300 

draw.FillColor = color.Blue ’ 그리기색을 푸른색으로 설정 

draw.FillStyle = fill. Cross ’십 자형 형태로 채 우기 형태설정 

’직 4 각형을 그린다 . 이때 십자선형태의 문양이 채워진다 . 


’그리기구역 지우기 

’직사각형의 왼쪽웃구석점의 자리표설정 
’직사각형의 오른쪽아래구석점의 자리표설정 
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draw. Rect(xl, yl, x2, y2) 

draw.FillStyle = fill.None ’ 채우기 형태를 없엔다 

da.Refresh ’ 작업과정을 화면으로 보여준다 

END 
실행 결과 



그림 9-5. FillRect 단추를 찰칵하였을 때의 결과 

- FillPoly 단추를 찰칵할 때의 사건수속 
PUBLIC SUB PolygonBtn_Click() 

DIM xl AS Integer 
DIM yl AS Integer 
DIM x2 AS Integer 
DIM y2 AS Integer 
DIM x3 AS Integer 
DIM y3 AS Integer 


’ 3 각형의 정점들을 옹근수묶음변수 triangle 에 보관하려고 한다 . 
DIM triangle AS Integer [] 
da. Clear 

’3 각형의 매 정점들을 설정 
’2 등변 3 각형의 ( 첫정점)꼭두점 설정 
xl = da.w/2 ’xl: 도형그리기구역의 수평중심 
yl = 10 ’yl: 그리기구역의 꼭대기에서 10 아래위치 
’2 등변 3 각형의 왼쪽정점 ( 두번째점)설정 
x2 = da. Left + 10 
y2 = da.H - 200 

’2 등변 3 각형 의 오른쪽정 점(세 번째 점 ) 설정 
x3 = da.W - 20 
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y3 = y2 

’정의된 모든 정점들이 묶음변수에 기억된다 . 
triangle = Array(xl, yl, x2, y2, x3, y3) 
draw.FillStyle = fill.Dense63 ’ 채우기형태설정 

draw.FillColor = color. DarkMagenta ’ 채우기 색 갈설정 

’triangle 묶음자료를 리용하여 3 각형을 그린다 . 
draw. Polygon (triangle) 

draw.FillStyle = fill.None ’ 채우기형태를 없앤다 . 

da. Refresh ’ 그리기 한 내 용을 현시 

END ’끝 

실행결과 



그림 9-6. Draw.Polygon 을 리용한 3 각형그리기 


- Polyline 단추를 찰칵할 때의 사건수속 
PUBLIC SUB PolyLineBtn_Click() 

DIM xl AS Integer 
DIM yl AS Integer 
DIM x2 AS Integer 
DIM y2 AS Integer 
DIM x3 AS Integer 
DIM y3 AS Integer 
DIM x4 AS Integer 
DIM y4 AS Integer 

DIM lines AS Integer[] ’꺾 인선자료를 위 한 옹근수묶음변수소개 


da. Clear 
xl = da. w/2 
yl = 10 

x2 = da. Left +10 
y2 = da.H 200 


’그리기구역 지우기 
’첫정점 


’ 다음정 점 
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x3 = da.W - 20 ’3 번째정점 

y3 = da. H - 20 

x4 = da.W/2 ’4 번째정점은 그리기구역의 중심 

y4 ; da.H/2 

’정점들을 묶음에 보관 . 

’만일 다각형을 만들려면 첫정점 xl, yl 을 묶음에 더 추가 
’즉 다음행의 설명문을 해제 

lines = Array(xl, yl, x2, y2, x3, y3, x4, y4, xl, yl) 
lines = Array(xl, yl, x2, y2, x3, y3, x4, y4) 
draw.FillStyle = fill.None ’ 채우기형태 없애기 
draw.ForeColor = color. DarkGreen ’ 채우기 색을 검은풀색으로 설정 
draw. Polyline (lines) ’ 선분그리기 

da. Refresh ’ 그림 표시 

END 
실행 결과 



3. Picture 클라스 

Picture 들라스는 그림을 표시하는데 리용되는 클라스이 다 . 

이 들라스는 코드로 창조할수도 있다 . 

[실례 4] 

DIM hPicture AS Picture 

hPicture = NEW Picture ([ 너비 , 높이，투명성 ]) 

만일 너비와 높이가 지적되지 않으면 새로운 picture 는 비게 된다 . 

투명성파라메터 에는 그림을 투명 하게 하겠는가에 따라 론리값을 지적할수 있다 . 
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1) Picture 클라스의 속성 

Picture 클라스의 속성들로는 Depth, Height, Width, Image 등이 있다 . 

① Depth 

그림 의 농도속성 을 돌려 주거 나 설정 해 준다 . 

농도값을 설정할 때 2, 8, 16, 24 값만을 설정할수 있다 . 

② Height 

읽기만 하는 속성으로서 그림의 높이를 옹근수값으로 돌려준다 . 

③ Width 

읽기만 하는 속성으로서 그림의 너비를 돌려준다 . 

④ Image 

읽기만 하는 속성으로서 그림을 image 로 변환하고 그것을 돌려준다 

2) Picture 쿨라스의 메쏘드 

Picture 믈라스의 메쏘드로서는 Clear, Copy, Fill, Flush, Load, Resize, Save 
등을 들수 있다 . 

① Clear 

그림을 지우고 모든 화소점들을 령으로 한다 . 

② Copy 

Copy ( 技 :, Y, 너비，높이 ]) AS Image 

그림 혹은 그 부분을 복사하여 돌려준다 . 

③ Fill 

형식 

Fill ( 색 ) 

지적된 색갈로 그림구역을 채운다 . 

④ Load 와 Save 

Load (파일 경로 ) 

Save (파일 경로 ) 

파일로부터 그림을 적재하거 나 그림을 파일에 보관한다 . 

파일경로에서 파일확장자는 보관되는 파일의 형식을 지적해준다 . 

현재 가능한 파일형식으로서는 JPEG, PNG, BMP, GIF, XPM 등이다 . 
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형식 

Resize ( 너비 , 높이 ) 


파라메터 에서 지적한 너 비와 높이 에 따라 그림의 크기를 다시 정한다 . 

[실습 2] 

gfxDemo 프로그람으로 가서 마지막 단추의 코드작성을 끝내 여보자 . 
gfxDemo 프로젝트의 Forml 에서 Tilelmg 단추를 두번 찰칵하여 코드창을 열고 다 
음의 코드를 삽입한다 . 

Tileimg 단추를 찰칵할 때의 사건수속 
PUBLIC SUB TileBtn_Click() 

’국부변수 소개 

’적재 하는 그림을 보관하기 위 한 picture 변수 소개 
DIM mypic AS Picture 

DIM counter AS Integer ’순환작업을 위한 계수기 변수 

DIM i AS Integer 
DIM j AS Integer 


’picture 변수를 실체화하면서 너비,높이를 설정하여 비지 않게 한다 . 
mypic = NEW Picture(170, 105, FALSE) 
da. Clear ’ 그리기 구역 지우기 

mypic.Load("Gambas Shrimp.png") ’load 메쏘드를 리용하여 그림적재 
’4 행에 3 렬로 된 타일그림을 만들려고 한다 . 

’그러므로 12 번의 순환이 필요하다 . 

FOR counter = 0 TO 11 

draw. Tile (mypic, i*175, j, 170,105) ’ 타일 형 그리 기 

INC I ’계수기값증가 

’순환계수기값이 3 의 배수인가 즉 새행시작인가를 검사한다 . 

IF i MOD 3 = 0 THEN 

’계 수기 값이 3 의 배수이면 y 축 값 j 을 더 증가시 킨다 . 

j = j + 110 

i = 0 ’렬계수기값을 다시 령으로 

ENDIF 

NEXT ’순환끝 

da. Refresh ’ 그리기 구역에 현시 

’Tilelmg 단추누르기사건끝 


END 
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실행 결과 



그림 9-8. Tilelmg 단추를 늘렸을 때 
타일형의 그림표시 

여기서 중요한것은 프로그람에서 사용하게 될 화상을 선정하는것이다 . 

이를 위해 푸른새우그림을 찾아 선택하고 그것을 gfxDemo 프로젝트에 
“Gambas shrimp, png" 라는 이름으로 복사한다 . 

4. Image 클라스 

Image 클라스는 화상을 표시하는데 리용되는 콜라스이 다 . 

Image 콜라스와 picture 콜라스는 비슷하면서도 일정한 차이가 있다 . 

Picture 형태의 그림은 변화시킬수 없지만 Image 형태로 된 화상은 확대 , 축소，회 
전과 갈은 변환을 할수 있다 . 

그러므로 두 콜라스는 다 같이 그림을 표시하지만 그 처 리방식에서 차이가 있으며 
이것은 메쏘드리용에서 나타난다 . 

Image 클라스에는 Depth, Height, Widtti 와 같은 속성들이 있는데 이것들은 
picture 클라스의 속성과 비숫하다 . 

Image 콜라스에는 또한 Clear, Copy, Fill, Flip, Load, Mirror, Replace, 
Resize, Rotate, Save, Stretch 와 같은 메쏘드들도 있다 . 여기서는 우와 반복되지 
않는 메 쏘드들만 구체 적으로 설명 한다 . 


① Flip 

형식 

FlicO AS Image 

화상을 수평축에 관하여 대칭한 모습을 돌려준다 . 
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② Mirror 
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형식 

Mirror 0 AS Image 

화상을 거울복사하여 돌려준다 . 즉 수직축을 기준으로 하여 대 칭 한 모습을 돌려준다 . 
③ Replace 

형식 

Replace (현재 색 , 새 로운색 ) 


현재의 색값을 지적한 새로운 색으로 교체한다 . 

@ Rotate 

형식 

Rotate (각도 AS Float) AS Image 


각도만큼 회전한 화상을 돌려준다 . 각도는 라디 안각이 아니 다 . 
⑤ Stretch 


형식 

Stretch (너비 , 높이 [, 윤활성 ]) AS Image 


너비 , 높이만큼 확장한 화상을 돌려준다 . 윤활성 파라메터 에 True 를 지적하면 느 
슨하게 확장된 화상이 얻어진다 . 

[실습 3] 

탁상화면을 보관하였 다가 보여 주는 프로그람을 작성하여보자 . 

Gambas 를 기동하고 도형사용자대면부방식으로 gfxDemo2 라는 이름을 가진 새로 
운 프로젝트를 창조한다 . 

IDE 환경 에서 Forml 을 시작홈으로 선정 하고 Formic resize 속성을 TRUE 로 하 
여 화상을 펼쳐볼수 있게 한다 . 

DrawingArea 콘트롤을 홈의 왼쪽웃구석에 배치하고 너비와 높이를 linch 정도로 
설정한다 . 홈의 오른쪽아래구석에는 단추를 배치하고《표시》라는 표제를 달아준다 . 

이 단추를 찰칵하였을 때의 사건수속 
’ Gambas class file 
PUBLIC SUB Buttonl_Click() 

p AS NEW Picture ’picture 변수 선언 

i AS NEW Image ’ 화상변수 선언 

’Grab 메쏘드를 사용하여 탁상화면으로부터 그림객체를 얻는다 
p = Desktop. Grab 0 

’얻은 그림을 image 속성을 리용하여 화상형태로 기억시킨다 . 
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i = p. image 

’그리기구역의 내용이 기억기에 고속완충되여 있다는것을 지적 
Drawingareal. Cached = TRUE 

’변화된 화상의 크기만큼 그리기구역의 크기를 다시 설정 
DrawingAreal. Resize(i. Width, i. Height) 

DrawingAreal. Clear () ’ 그리 기 구역 지 우기 

’ 그리기를 시 작하기 위 하여 Draw. Begin 메 쏘드를 호출 
Draw. Begin (DrawingAreal) 

’그리기구역의 원점 0,0 로 부터 화상을 그려넣는다 
Draw. Image(i, 0, 0) 

’Draw.End 메쏘드를 러용하여 화상그리기를 끝낸다 
Draw. End 

DrawingAreal.Visible = TRUE ’ 화상을 보이게 한다 
DrawingAreal. Refresh ’ 그리기 구역을 현시 하여 준다 

END 


5. 자리표계리용 

DrawingArea 콘트롤에 각종 함수의 그라프를 그리자면 가상자리표계를 도입해야 
한다 . 

VB 에서는 Scale 메쏘드를 리용하여 홈이나 picture 콘트롤에 가상자리표계를 도입 
하고 그라프처 리를 진행한다 . 

그러나 Gambas 에는 이러한 메쏘드가 없다 . 

그러므로 프로그람으로 자리표계를 도입하기 위한 자리표변환부분을 작성하여 리 
용해 야 한다 . 

DrawingArea 콘트롤의 자리표계는 다음의 그림과 같다 . 

W: DrawingArea 콘트롤의 너비 , H ： DrawingArea 콘트롤의 높이 

( 0 , 0 ) 
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다음 그림은 같은 DrawingArea 콘트롤에 가상자리 표계를 도입한것 이 다 . 



가상자리표계의 점 이를 표시하자면 이 점의 자리표를 그리기구역의 자리표 (dx, 
dy ) 으로 변환해 야 한다 . 

변환공식은 다음과 같다 . 

W 

dx = xmax-xmin — ( ᅵ xmin ᅵ + x ) 

的 = ymax-ymin ( 1 ymax 1 - y) 

아래의 실례는 VB 에서 Scale 을 러용하는것과 동등한 처리방법을 보여주고있다 . 

I 실례 5] 

y=x"2 의 그라프그리기 
’ Gambas class file 
public const xmin as integer =-3 
public const xmax as integer =3 
public const ymin as integer =10 
public const ymin as integer =-l 


PUBLIC SUB Form_dbclick() 
Me. close 


End 
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PUBLIC SUB DrawingAreal_dbclick () 
dim x，y AS Float 
dim dx, dy AS Float 
dim H, W as integer 
H = DrawingAreal. Height 
W = DrawingAreal. Width 
Draw. Begin (DrawingAreal) 

For x=xmin to xmax step 0.01 
Y=x*x 

dx=fix (W/ (xmax-xmin) * (abs (xmin) +x)) 
dy=fix (H/ (ymax - ymin) * (abs (ymax) +y)) 

Draw. Point (dx, dy) 
next 

Draw. End 
end 

이런 방법으로 가상자러표를 그리기구역의 자리표로 변환하여 요구하는 그라프와 
도형에 대한 처리를 진행할수 있다 . 
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제 10 장. Gambas 와 자료기지 

이 장에 서 는 Gambas 프로그람작성 환경 에 서 자료기 지 리 용방법 에 대 하여 설 명 한다. 

자료기지를 리용하자면 먼저 관계형자료기지의 기초개념들을 잘 알아야 한다. 

자료기지란 어떤 특정의 목적을 위하여 러용하는 자료들을 그의 련관관계를 반영 
하여 보존한 파일 이 다. 

자료기지관리체계란 이러한 자료기지에 자료를 보관하고 관리(검색，수정，삭제) 
하기 위한 프로그람체계를 말한다. 

자료기지는 망형，계층형，관계형, 객체형으로 분류한다. 

여기서 관계형자료기지는 자료를 표형식으로 표현한다. 

실례로 대학교무행정자료기지라고 할 때 그것은 학생명단, 교원명단, 학과명단, 
교실배치 등과 갈은 여러개의 표들로 구성된다. 

매 표는 또한 행과 렬로 이루어진 자료모임구조를 이루고있다. 

이때 행은 레코드를 의미 하며 렬은 마당을 의미한다. 

또한 마당들가운데서 매개 레코드를 정확히 구분할수 있는 마당을 색인마당으로 
정 한다. 

Gambas 환경에서는 MySQL , PostgreSQL , SQLite 와 같은 관계형자료기지를 리 
용할수 있다. MySQL 은 이 3가지 자료기지들중에서 가장 광범히 리용되는 자료기지 이 
므로 이 장에 서 는 주로 MySQL 을 리 용하여 자료기 지리 용방법 을 설 명 한다. 

MySQL 은 MySQL server 와 client 프로그람으로 구성 되 여있 다. 

MySQL server 는 사용자가 리 용하는 모든 자료기 지 들을 MySQL 환경 에 서 보관하 
고 관리 하는 프로그람이다. 

MySQL 에 포함된 client 프로그람들은 너무 많아서 여기서 렬거하기는 힘들지만 
매 개 client 프로그람들은 모두 MySQL server 에 보관된 자료 혹은 메 타자료들을 관러 
할 특별 한 목적 을 가진 프로그람들이다. 

Gambas 환경에서 자료기지에 접근하자면 프로젝트에서 gb.db 름포넨트를 리용한다. 

그러 므로 새 로운 프로젝 트를 창조할 때 프로젝 트속성대 화창의 콤포넨트항목에 서 
gb.db 를 선택해야 한다. 

gb.db 는 PostgreSQL , MySQL , SQLite 와 같은 자료기지관리체계들에 접근할수 
있게 해준다. PostgreSQL 과 MySql 들은 다 client/server 형프로그람들이므로 이것 
을 리용한다는것은 곧 자료기지봉사기에 련결할 필요가 있다는것을 의미한다. 그러나 
SQLite 자료기지 인 경우에는 프로그람에서 봉사기에 련결할 필요가 전혀 없다. 

gb.db 에서 제공하는 클라스들은 Connection , DB , Database , Field , Index , 
Result , ResultField , Table , User 등이다. 

이 들라스들에 대하여 구체적으로 본다. 
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1. Connection (련결)클라스 

이 콜라스는 자료기지와의 련결을 보장해춘다. 

자료기지와 성과적으로 련결하자면 먼저 련결객체를 창조하고 필요한 속성들을 설 
정 한 다음 Open 메쏘드를 호출하여 야 한다. 

이 콜라스는 코드로 창조할수도 있으며 형식은 다음과 같다. 

DIM hConnection AS Connection 
hConnection = NEW Connection () 

1) Connection 쿨라스의 속성 

속성들로는 Charset , Databases , Host , Login , Password , Name , Port , 
Tables , Type , Users , Version 등이 있다. 

① Charset 

Charset 는 읽기만 할수 있는 속성으로서 자료기지가 리용하는 charset (문자코드 
모임)를 돌려주는 기호렬속성이다. 

© Databases 

Databases 속성은 자료기지봉사기에 의하여 관리되는 자료기지의 이름들을 포함한 
collec 仕 on 객체를 검사하는데 리용한다. 

PROPERTY Databases AS . ConnectionDatabases 

③ Host 

자료기지봉사기가 자리잡게 될 주콤퓨터이름을 설정하거나 얻기 위하여 이 속성을 리용 
한다. 

주를퓨터이 름은 름퓨터 이 름 혹은 IP 주소가 될 수 있 다. 

표준적 으로 주틈퓨터 는 localhost 로 되 여있 다. 

이 속성의 자료형은 문자렬형 이다. 

④ Login 

이 속성은 자료기지를 리용하게 되는 사용자의 접속자료를 설정하거나 얻기 위하 
여 리용한다. 이 속성의 자료형은 문자렬형 이 다. 

⑤ Name 

이 속성은 접속하려고 하는 자료기지의 이름을 설정하거나 얻는데 리용한다. 이 
속성의 자료형은 문자렬형이다. 

⑥ Password 

이 속성은 자료기지에 접속할 때 사용되는 암호를 설정하거나 돌려준다. 속성의 
자료형은 문자렬형 이다. 
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⑦ Port 

이 속성은 자료기지와 련결할 때 사용되는 TCP / IP 포구를 설정하거나 돌려주는데 
러용한다. 

이 속성의 자료형은 문자렬형 이 다. 

⑧ Tables 

이 속성은 자료기지에 존재하는 모든 표들의 집합을 얻는데 리용된다. 
PROPERTY Tables AS . ConnectionTables 

⑨ Type 

이 속성은 련결하려는 자료기지체계의 형태를 표현한다. 

Gambas 에서 현재 러용할수 있는 자료기지체계는 postgresql , mysql , sqlite 이다. 

이 속성의 자료형은 문자렬형 이 다. 

⑩ Users 

이 속성은 자료기지봉사기에 등록된 모든 사용자들의 집합을 돌려준다. 

다른 집합객체들과 마찬가지로 FOR EACH 명령문으로 매 사용자를 선택할수 있다. 
PROPERTY Users AS . ConnectionUsers 
⑪ Version 

이 속성은 련결된 자료기지의 판번호를 돌려주는 읽기만 할수 있는 속성이다. 

이 속성 의 자료형 은 옹근수형 이다. 

2) Connection ■라스의 메쏘드 

Connection 들라스에는 자료기지와 련결하며 자료의 검색, 추가, 변경, 삭제를 위 
한 많은 메 쏘드들이 준비 되 여있 다. 

① Open 

형식 

자료기지객체. Open () AS Boolean 


Open 메쏘드는 자료기지와의 련결에 리용한다. 

성공적으로 련결된 경우 true 값을 돌려준다. 

자료기지를 열기에 앞서 자료기지를 리용하는데 필요한 자료와 함께 련결속성을 
설정 하여 야 한다. 

일반적으로 최소한 자료기지의 형태, 주름퓨터, 가입 ID 암호，사용하려는 자료기지 
이름을 설정하여야 한다. 

실례 1은 jrittinghouse 라는 사용자가 localhost 에 보관되여있는 GambasBugs 라는 
MySQL 자료기지와 련결하기 위하여 어떻게 Open 메쏘드를 리용하는가를 보여준다. 

② close 
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자료기 지 객체. close 

련결된 자료기지와의 해제를 진행할 때 리용된다. 

[실례 1] 

DIM $hConn As NEW Connection 
WITH ShConn 
.Type = "mysql" 

.Host = "localhost" 

. Login = "jrittinghouse" 

. Password = "ab32e44" 

.Name = "GambasBugs" 

END WITH 
TRY $hConn.Open 

IF Error THEN PRINT ，，자료기지를 열수 없습니다. Error ="；Error.Text 
ShConn. Close 

만일 자료기지를 련속적으로 리용하고싶다면 자료기지를 다시 열수도 있다. 

③ Find 

형식 

Find (표[， Request AS String, Arguments AS , •••]) AS 


Find 메쏘드는 표에서 질문에 해 당하여 찾은 결과객체 (result object) 를 돌려준다. 
결과객체는 Gambas 가 SQL 질문에 대한 결과를 돌려주기 위한 객체이다. 

결과객체 에 대 하여서는 아래 에서 더 구체적으로 보도록 하자. 

Find 메쏘드가 돌려주는 결과객체는 읽기전용이다. 

Request： 질문으로 사용되는 SQL WHERE 문이다. 

Argument： 필요한만큼 라렬하며 Request 문자렬안에서 지적된 파라메터들과 교체 
된다. 

즉 SubstO 함수의 교체기호렬처럼 작용한다. 

Find 메쏘드를 사용하면 기초하고있는 자료기지에 관계없이 질문들을 작성할수 있다. 
즉 PostgreSQL 나 MySQL 과 작업한다고 하여도 코드는 달라지지 않는다. 

④ Create 

Create ( 표 AS String ) AS Result 
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Create 메쏘드는 표를 창조한다 . 

이때 창조된 표에서는 레코드들을 창조할수 있으며 읽기/쓰기를 할수 있다 . 
⑤ Edit 

형식 

Edit ( 표 [, Query AS String, Arguments AS , •••]) AS 


Edit 메쏘드는 표에서 일부 레코드들을 편집하기 위한 읽기/쓰기형 결과객체를 돌려 
준다 . 

Query 는 표를 려과하기 위 하여 리용되는 SQL WHERE 문의 조건부와 같다 . 
Arguments 들은 이전에 설명한것과 같다 . 

[실례 幻 

DIM MyResult AS Result 
DIM sQuery AS String 
DIM iParm AS Integer 

sQuery = "id=&l" ’질문문자렬의 끝에 파라메 터값으로 12 를 넣는다 . 

iParm = 12 

$hConn. Begin ’ transaction 시 작 

’표 tblDEFAULT 에서 id 마당값이 12 인 레코드을 찾아 수정하려 한다 . 

MyResult=$hConn.Edit("tblDEFAULT", sQuery, iParm) 

MyResult!Name = "Mr Rittinghouse" ’마당값넣기 

$hConn. Update ’새 값으로 수정 

$hConn. Commit ’transaction 끝 

$hConn. Close ’ 자료기 지 접 속끝 

실례에서 본 업무 (Transac 仕 on ) 에 대하여 간단히 설명하겠다 . 

어 느 자료기지 에서 나 때때 로 하나의 조직 화된 자료기지 처 리명 령 문들이 성과적 으로 
실행되였는가，혹은 전혀 실행되지 않았는가를 확인해야 하는 경우가 있다 . 
은행업무에서 바로 그러한 실례를 찾을수 있다 . 

만일 주어 진 량의 금액(실례 로 100 원 ) 이 한 구좌에 서 다른 구좌로 송금되 였 다면 
다음과 같은 동작이 일어 나야 한다 . 

UPDATE account 1 SET balance = balance - 100 ； 

UPDATE account2 SET balance = balance + 100 ； 
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이 두 명령문은 완전히 성과적으로 수행되거나 그렇지 않으면 아예 실행되지 말아 
야 한다. 왜냐하면 금액은 한 구좌에서만 전송될수 없으며 다른 구좌에로의 송금이 실 
패하지 말아야 하기때문이 다. 

이와 같이 반드시 하나로 조직화되여 수행되거나 혹은 실패하는 경우 실행되지 말 
아야 할 자료기지명령문(질문)들의 묶음을 업무 ( transaction ) 라고 한다. 

transaction 은 BEGIN 과 COMMIT 사이에 하나 혹은 그 이상의 자료기지명령문들 
을 묶는것으로 정의한다. 

COMMIT 명 령문이 없이 transaction 은 수행되지 않는다. 

transaction 이 성공적으로 실행되지 못한 경우 rollback 명령문을 리용하여 원래 
상태로 복귀된다. 

⑥ Exec 

형식 

Exec (Request AS String , Arguments AS , •••) AS Result 

Exec 는 SQL 로 서술된 질문 ( request ) 을 실행시키고 그 결과를 돌려준다. 

이때 결과객 체 는 읽기만 가능한 객 체 이 다. 

Request 는 SQL WHERE 의 조건부와 같다. 

⑦ Quote 

형식 

Quote (Name AS String ) AS String 


Quote 는 SQL 질문에 삽입하여 리용할수 있는 식별자들을 돌려준다. 

만일 자료기지와 독립적 인 코드를 사용하고싶다면 이 메쏘드를 리용할수 있다. 

[실례 3] 

rResult =$ hConn . Exec ("SELECT COUNT (*) AS Rees FROM " 
DB . Quote ( DBTable )) 

PRINT rResultIRecs 

Dbtable 에 는 표의 이 름이 기 억 되 여있 다. 

이 실례에서는 지적된 표의 레코드수를 돌려준다. 

2. 기타 클라스들 

1) Database 클라스 

자료기 지 들라스는 자료기 지 와 관련된 정 보를 표현하는데 리 용된다. 

이 콜라스는 창조할수 있다. 
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이 를라스에서 리용할수 있는 속성들은 Connection , Name , System 이다. 
Connection 은 웃준위의 Connec 仕 on 객체를 얻는데 리용한다. 

Name 은 자료기지의 이름을 돌려준다. 

System 은 만일 자료기지가 자료기지체계이면 TRUE 를 돌려준다. 

자료기지클라스는 자료기지를 제 거 하는 단 하나의 메 쏘드 Delete 를 가전다. 

2) DB 클라스 

이 들라스는 현재 접속된 자료기지를 표현한다. 

이 들라스는 창조할수 없다. 

이 클라스의 대부분속성들은 Connec 吐 on 클라스의 속성들과 거의 갈으며 다른 속 
성들인 Current , Databases , Debug 에 대해서만 설명한다. 

Current 는 현재의 접속을 설정하거나 돌려준다. 

Databases 는 자료기지봉사기 에 의 하여 관리되는 모든 자료기지들의 집 합을 돌려준다. 
Debug 는 자료기 지 를포넨트가 오유추적방식 에 있으면 TRUE 를 돌려 주거 나 설정 
한다. 

Debug 기발이 설정되면 임의의 자료기지에서 보내온 매 질문은 조작탁으로 표준오 
유를 출력한다. 

DB 클라스에서 리용되는 메쏘드들은 Connection 들라스의 메쏘드들과 같다. 

3) User 클라스 

이 들라스는 자료기지의 리용자들을 표현할 때 리용된다. 

이 들라스는 창조할수 없다. 

이 를라스에는 Administrator , Connec 吐 on , Name , Password 속성들이 있다. 
Administrator 는 사용자가 자료기지관리자이면 TRUE 값을 돌려주는 읽기전용속 
성 이 다. 

Connection 은 사용자의 웃준위접속객체를 돌려준다. 

Name 은 사용자의 이름을 돌려준다. 

Password 는 사용자와 련관된 암호를 설정하거나 돌려준다. 

이 들라스에는 자료기지에서 사용자를 제거하는 Delete 라는 메쏘드만이 있다. 

4) Table 클라스 

표콜라스는 자료기지의 표를 정의한다. 

이 들라스는 창조할수 없다. 
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Connec 社 on , Fields , Indexes , Name , PrimaryKey , System , Type 등의 속성 이 
있 다. 

Connection 은 웃준위의 Connec 仕 on 객체를 얻는데 리용된다. 

Fields 는 표의 마당들의 집합을 돌려준다. 

Indexes 는 표의 색 인들의 집합을 돌려준다. 

Name 은 표의 이름을 돌려준다. 

Primary Key ^ 기본색인마당의 이름을 포함하는 문자렬묶음을 돌려준다. 

System 은 자료기지가 자료기지체계이면 TRUE 값을 돌려준다. 

Type 는 표의 형 태를 설정하거 나 돌려준다. 

이 콜라스는 단 하나의 메쏘드 Update 만을 가전다. 

이 메쏘드는 현재 접속된 자료기지에서 표를 실지로 창조할 때 호출된다. 

5) Field 클라스 

마당콜라스는 표마당의 자료를 표현하는데 리용된다. 

이 들라스는 창조할수 없다. 

Default , Length , Name , Table , Type 등의 속성 이 있다. 

Default 는 마당의 표준값을 돌려준다. 

Length 는 본문마당의 최대길이를 돌려준다. 

만일 선택한 본문마당의 길이에 아무런 제한도 지적한것이 없으면 령을 돌려준다. 
Name 은 마당이름을 돌려주며 Table 은 마당이 창조된 표의 이름을 돌려준다. 
Type 는 마당의 자료형을 지적하는 상수들을 돌려준다. 
gb . Boolean , gb . Integer , gb . Float , gb . Date , gb . String 

6) Index ■라스 

Index 콜라스는 표에 대한 색 인을 표현한다. 

이 콜라스는 창조할수 없다. 

이 클라스의 속성들로는 Fields , Name , Primary , Table , Unique 등이 있다. 
Fields 속성은 첨수화된 마당들을 반점으로 구분한 문자렬을 돌려준다. 

Name 속성은 표에서 기본색 인마당의 이름을 돌려준다. 

Table 은 이 색 인을 가진 표객체를 돌려준다. 

Unique 는 색인이 유일하면 TRUE 값을 돌려준다. 

7) Result (결과객체)클라스 
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결과객체는 SQL 질문의 결과를 돌려줄 때 사용되는 클라스이다. 

이 들라스는 창조할수 없으며 읽기만 하는 묶음처럼 동작한다. 

이 들라스의 매 개 객 체 (레 코드) 는 FOR EACH 문으로 선택 하여 리 용할수 있 다. 
결과객체는 다음과 같이 선언하고 리용할수 있다. 

DIM hResult AS Result 
FOR EACH hResult 
’자료를 가지고 무엇 이 나 한다. 

NEXT 

결과객체에서 사용할수 있는 속성들은 Connection , Count , Fields , Index , Length 
이다. 

Connection 속성 

웃준위 접 속객 체 를 돌려 준다. 

Count 속성 

결과객체의 레코드수를 돌려준다. 

Fields 속성 

결과객체의 마당집 합을 돌려준다. 

Index 속성 

령부터 시작된 현재 레코드의 번호를 돌려준다. 

Length 속성 

Count 와 꼭같이 리용된다. 

결과객체에서 리용하는 메쏘드 들은 Delete , MoveFirst , MoveLast , MoveNext , 
MovePrevious , MoveTo , Update 등이 다. 

이 메쏘드들중의 대부분은 메쏘드이름만으로도 자체로 리해할수 있으므로 구체적 
으로 설명하지 않는다. 

다만 Update 는 자료기지의 현재 레코드를 지 적된 값으로 변경할 때 리용하는 
메 쏘드이 다. 

또한 MoveTo 를 리용할 때 틀린 레코드번호를 지적하면 오유를 의미하는 TRUE 
값을 돌려준다는것을 명심하시오. 

[실례 4] 

이 실례 는 결과객체의 현재레 코드에서 마당값을 얻는 방법을 보여준다. 

DIM MyResult AS Result 

DIM MyVariant AS Variant 

My Variant = MyResult [마당이름 AS String ] 
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[실례 5] 

이 실례는 결과객체의 현재레코드에서 마당의 값을 변경하는 방법을 보여준다. 
DIM MyResult AS Result 
DIM MyVariant AS Variant 
MyResult [마당이 름 AS String ] = MyVariant 


8) Resultfield ( 결과마당)클라스 


결 과마당콜라스는 결 과객 체 의 마당들중 하나를 표현 한다. 

이 클라스의 속성들로는 Length , Name , Result , Type 등이 다. 

결과마당자료들을 FOR EACH 로 구분할수 있다. 

이 방법으로 특별한 마당을 선택하여 Find 메쏘드를 러용할수 있다. 

이 콜라스는 창조할수 없다. 

3. 자료기지실례프로그람 

여기서는 실례프로그람에 대한 설명을 통하여 Gambas 환경에서 자료기지관리프로 
그람작성방법을 련습하도록 한다. 

Gambas 를 기동하고 Examples 안내 에서 Database program 을 선택하시오. 

IDE 환경이 나타나면 이 프로그람이 두개의 홈 FMain 과 Frequest 를 가지고있다 
는것을 알수 있다. 

Fmain 홈에서는 사용하려는 자료기지 종류(즉 PostgreSQL , MySQL , SQLite ) , 
주콤퓨터이 름，자료기 지이 름, 사용자이 름，암호를 입 력 한다. 

홈아래 에 있는 SQL 질문창이 자료기지 에 대 한 질문을 실행할수 있게 한다. 
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FRequest 홈은 아래와 류사하다. 



그림 10-2. 설계방식의 Frequest 를 


FRequest 홈에는 한개의 콘트롤 TableView 만이 존재한다. 

1) Fmain 흠에서의 코드작성 

’ Gambas class file 

PRIVATE $hConn AS Connection 

$hConn 는 private 변수로 소개되였는데 이 콜라스파일의 모든 부분프로그람(함수, 
수속)에서 사용되게 된다. 

$가 붙어 있는 변수는 클라스변수라는것을 명심하시오. 

- connect 단추를 찰칵하였을 때의 사건수속 
사용자가 홈에서 Type , Host , Database , User , password 항목에 자료를 입력하 
고 connect 단추를 누르면 프로그람은 다음의 사건수속에 와서 우의 자료를 가지고 자 
료기지 에 접속하려고 한다. 

PUBLIC SUB btnConnect _ Click () 

DIM sName AS String 

’만일 자료기지 가 이미 열 린 상태 이면 그것을 닫도록 한다. 

’TRY 를 사용하면 어떠한 오유도 포착할수 있다. 

’만일 닫아야 할 자료기지가 없으면 아무런 피해도 없이 코드는 그대로 수행된다. 
TRY $ hConn . Close 
sName = txtName.Text 
WITH $hConn 

.Type = cmbType.Text ’리용하게 될 자료기지종류 
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.Host = txtHost . Text 
. Login = txtUser . Text 
. Password = txtPassword . Text 


’주름퓨터이름 
’사용자이름 
’사용자암호 


END WITH 

다음의 코드토막에서는 sName 으로 지적한 자료기지가 존재하는가를 검사하고 존 
재하지 않으면 창조항목이 선택으로 된 경우에 창조한다. 

IF chkCreate . Value THEN 


$ hConn.Open 


접속열기 


’자료기지가 존재하는가를 보고 존재하지 않으면 그것을 봉사기에 추가 
IF NOT $ hConn . Databases . Exist ( sName ) THEN 


$ hConn . Databases . Add ( sName ) 


접속끝 


ENDIF 

$ hConn . Close 
ENDIF 

’자료기지를 열 준비가 다 되였으므로 자료기지를 연다. 

ShConn.Name = sName 
$ hConn.Open 

’두 홈의 enabled 속성을 TRUE 로 하고 Fmain 홈의 밑에 있는 SQL 질문창에는 

’표준적인 본문을 입력한다. 

frmDatabase . Enabled = TRUE 
frmRequest . Enabled = TRUE 
txtRequest . Text = "SHOW TABLES " 

’이 수속에서 TRY 가 실패하거나 오유가 생기면 CATCH 명령문은 오유통보문을 

현시 한다. 

CATCH 

Message . Error ( Error . Text ) 

END 

- test 단추를 찰칵하였을 때의 사건수속 

자료기지에 접속한 다음 사용자가 test 단추를 찰칵하면 아래의 사건수속이 실행된다. 

이 프로그람을 간단히 하기 위하여 일부를 주석을 리용하여 생 략하였다. 

필요하다면 주석을 해제하여 리용하시오. 

PUBLIC SUB btnCreate _ Click () 

DIM hTable AS Table ’국부적인 Table 변수선언 
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’Add 메쏘드로 자료기지에 표를 추가 
' hTable = $ hConn . Tables . AddC ' test ") 

’이 코드는 우의 코드를 변화시킨것 이 다. 
hTable = $ hConn . Tables . Add ( txtName . text ) 

’우리가 만든 표에 마당을 첨가한다. 

’매 마당에 대하여 그의 이름과 자료형을 지적해준다. 

’또한 문자렬마당에 대하여서는 그 길이도 지적해춘다. 
hTable . Fields . AddC ' id ", gb . Integer ) 
hTable . Fields . Add (" firstname ", gb . String , 16) 
hTable . Fields . Add (" name ", gb . String , 32) 
hTable . Fields . Add (" birth ", gb . Date ) 
hTable . Fields . AddC ' active ", gb . Boolean ) 
hT able . Fields . Add (" salary ", gb.F loat ) 

’자료기지표의 기본색 인을 지적한다. 이 경우에 id 마당은 유일적인 
’옹근수색 인마당으로 된다. 
hTable . PrimaryKey = [" id "] 

’Update 메쏘드의 호출은 자료기지의 변화를 완료시켜준다. 
hTable . Update 

’지금까지 자료창조과정 이 성과적으로 진행되였다는것을 통보. 

Message . InfoC'Table " & txtName . Text & " has been created .") 

다음은 자료기지의 상태에 따라 단추들을 능동 또는 비능동상태로 만드는 코드를 작성 
한다. 

실례로 자료기지표에 자료가 있으면 그 표에 다시 자료를 넣을 필요가 없으므로 
fill 단추는 비능동상태로 되고 대신 delete 단추가 자료를 제거할수 있도록 능동상태로 
된 다. 

만일 자료기지표가 제거되였다면 delete 단추는 비능동상태로 되고 대신 Create 단 
추가 능동상태로 되며 표는 창조되였는데 아무런 자료도 없으면 fill 단추가 능동상태로 
된 다. 

이것은 단추를 잘못 눌러 일어날수 있는 오유를 미리 방지한다. 
btnFill . Enabled = TRUE 
btnDelete . Enabled = TRUE 
btnCreate . Enabled = FALSE 

txtRequest.Text = "Show TABLES " ’SQL 질문창에 표준값 

’CATCH 명령문은 이 수속에서 어떠한 오유가 나타나면 오유통보문을 현시한다. 
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CATCH 

Message . Error ( Error . Text ) 

END ’ c reate 단추끝 

- Delete 단추를 찰칵했을 때의 사건수속 

자료기지접속이 이루어지면 사용자는 표를 삭제하기 위하여 Delete 단추를 찰칵할 
수도 있다. 이때 다음의 사건수속이 호출된다. 

여기서도 원래 프로그람을 쉽게 러해하도록 약간의 수정을 하였다. 

PUBLIC SUB btnDelete _ Click () 

'$ hConn . Tables . Remove (" test ") ’ 표의 제 거 

$ hConn . Tables . Remove ( txtName . Text ) 

’사용자에게 표가 제거되였다는 통보제시 
Message . Info ("Table "& txtName . Text & " 제거되였음") 

’표가 삭제되였으므로 표를 다시 제거할수 없으며 자료를 채울수도 없다. 

’다시 표를 창조할수만 있다. 
btnDelete . Enabled = FALSE 
btnFill . Enabled = FALSE 
btnCreate . Enabled = TRUE 

’질문할 아무런 표도 존재하지 않으므로 질문칸을 빈것으로 한다. 
txtRequest . Text = "" 

CATCH 

Message . Error ( Error . Text ) 

END ’delete 단추끝 

- Fill 단추를 찰칵하였을 때의 사건수속 

자료기지접속이 이루어지면 사용자는 표를 창조할수 있으며 거기에 일부 필요한 
자료를 추가할수도 있다. 


PUBLIC SUB btnFill_Click () 

’첨수를 위하여 옹근수변수 ilnd 변수선언 
’결과를 보관하기 위 한 결과객체 변수선언 
DIM ilnd AS Integer 
DIM rTest AS Result 

INC Application.Busy ’새치기를 방지하기 위하여 Busy 기발설정 

ShConn . Begin ’ 자료기 지업 무공정 시 작 

’rTest = ShConn . Create (" test ") ’먼저 자료기지 표를 창조 
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rTest = ShConn . C reate ( txtName . Text ) 

FOR ilnd = 1 TO 100 ’다음 100 개 레코드를 만들기 위한 순환조직 

rTest!id = ilnd ’레코드의 첨수값 설정 

’5개 이름들중 란수적으로 선택된 이름이 들어간다 
rTestIfirstname = [" Paul ", " Pie ", " Jaes ", " Ant ", " Mat "] 

[Int ( Rnd (5))] 

rTest!name = "Name #" & ilnd ’last name 에 첨수값이 련결된다 

’1970년 1월 1일에 1부터 1000까지의 수들중에서 우연수를 발생시켜 
’생일을 란수적으로 정한다. 

rTest ! birth = CDate (” 01/01/1970”) + Int ( Rnd (10000)) 

’active 기발을 0과 1의 값중 아무것이나 설정한다 
rTest ! active = Int ( Rnd (2)) 

’생활비를 1,000부터 10,000까지 값중에서 란수적으로 설정한다 
rTest ! salary = Int ( Rnd (1000, 10000)) 

rTest . Update ’갱신 

NEXT ’순환끝 

ShConn . Commit ’자료기지에 대한 업무완료 

’수속을 끝내기 에 앞서 진행 하여 야 할 마지막 작업 

FINALLY 

DEC Application.Busy ’busy 기발해제 

’사용자가 해 야 할 일을 통보 

Message . Info ( txtName . Text & " 에 자료가 첨부되였음") 

’SQL 질문창에 SQL 질문넣기 

txtRequest . Text = "select * from " & txtName . Text 
btnFill . Enabled = FALSE ’단추동작상태 설정 

btnDelete . Enabled = TRUE 
btnCreate . Enabled = FALSE 

’요유가 발생하면 모든것을 취소하고 복귀하며 오유통보를 내보낸다. 
CATCH 

ShConn . Rollback 
Message . Error ( Error . Text ) 

END 

- Run 단추를 찰칵하였을 때의 사건수속 
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사용자는 홈의 밑에 있는 SQL 질문창에 임의의 SQL 질문을 입 력 하고 실행단추를 
찰칵하여 질문의 결과를 볼수 있다. 

PUBLIC SUB btnRun _ Click () 

DIM rData AS Result ’질문결과를 얻기 위한 결과객체선언 

DIM hForm AS FRequest ’Frequest 홈을 보여주기 위한 홈변수선언 

’Exec 메쏘드를 리용하여 질문을 실행하고 그 결과를 결과객체변수 rData 에 준다. 
rData = $ hConn . Exec ( txtRequest . Text ) 

’Freques 홈이 실체화될 때 자료기지조종자와 그 결과를 홈에 전달 
hForm = NEW FRequest ($ hConn , rData ) 
hForm . Show ’홈에 결과를 보여주기 

CATCH ’오유가 발생하면 여기서 오유통보 현시 

Message . Error ( Error . Text ) 

END ’sql 질문처리끝 

- Fmain 홈이 열리거나 닫길 때의 사건수속 
프로그람이 실행되고 홈이 열릴 때마다 접속변수 $hConn 를 실체화 할 필요가 있다. 

PUBLIC SUB Form _ C)pen () 

$hConn = NEW Connection 

END 


PUBLIC SUB Form _ Close () 

$ hConn . Close 
END 

2) Request 흠에서의 코드작성 

다음은 FRequest 홈이 호출될 때 어떻게 결과객체자료를 보여주는가에 대하여 본다. 
’Gambas class file 
’ 변수소개 

’하나는 접속을 위한 변수，다른 변수는 결과자료를 위 한 변수 
PRIVATE ShConn AS Connection 
PRIVATE $ rData AS Result 
- Constructor 사건수속 

이 사건수속은 Fmain 홈이 Frequest 홈을 호출할 때 접속조종자와 질문결과를 파 
라메터 로 받기 위 하여 사용된 다. 

PUBLIC SUB _ new(hConn AS Connection , rData AS Result ) 
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’hConn 파라메터 를 이 수속에 서 $hConn 변수에 할당한다 
$hConn = hConn 

’rData 파라메터 를 $rData 변수에 할당 
’변수할당이 끝나면 $가 앞머리 에 불은 변수들은 
’constructor 수속뿐아니라 전체콜라스에서 리용할수 있다. 
$rData = rData 

RefreshTitle ’홈창문에 제목을 현시하기위한 수속호출 

’ReadData 수속은 TableView 콘트롤을 배 치 하는네 리 용 

ReadData 

’탁상화면의 중심에 창문설치 

ME . Move ( Int ( Rnd ( Desktop.W - ME . W )), Int ( Rnd (( Desktop.H - ME . H )))) 
END ’ constructor 의 끝 

- 창문제목을 표시하기 위한 수속 

PRIVATE SUB RefreshTitle () 

DIM sTitle AS String ’국부변수소개 

’접속과일이름을 본문과 련결하여 창문제목으로 한다. 
sTitle = (” SQL 질문결과 ") $ hConn.Name 

ME . Title = sTitle 
END 

- ReadData 0 수속 

여기서는 결과객체로부터 TableView 콘트롤에 전달하게 될 자료의 구조를 정의한다. 
즉 결과객체로부터 마당의 수를 결정하여 표의 렬수를 결정하며 적당한 렬이름과 
자료형을 정의하여준다. 

자료형은 Wid 仕 iFromTypeO 라는 다른 수속을 호출하여 결정한다. 

PRIVATE SUB ReadData () 

’이 변수는 선언되였지만 사용하지 않았으므로 주석을 달아도 된다. 

DIM hTable AS Table 
DIM hField AS ResultField 
DIM sField AS String 
DIM ilnd AS Integer 
DIM iLen AS Integer 

’새치기를 피하기 위하여 buzy 기발설정 

INC Application . Busy 

tbvData . Rows . Count = 0 ’TableView 콘트롤의 행수를 령으로 설정 
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’렬의 개수는 결과객체의 마당수와 같게 설정 
tbvData . Columns . Count = $ rData . Fields . Count 

’결과객체의 매 마당에 대한 이름과 자료형을 얻어내며 
’ TableView 의 렬마당과 자료형，크기를 적당히 설정한다. 
FOR EACH hField IN SrData . Fields 
WITH hField 

’이 주석 을 단 부분은 실 행 추적 을 위한 부분이 다. 

’PRINT . Name ； ": "； . Type ； " "； .Length 
’마당이름으로 되는 렬이름을 설정 
tbvData . Columns [ ilnd ]. Text = . Name 
’ FromType 를 호출하여 마당이 어떤 자료형이며 그에 맞는 너비를 결정 
tbvData . Columns [ ilnd ]. Width = 比) Width ( tbvData ,. Type , . Length , . Na 
me ) 

END WITH 

INC ilnd ’첨수값증가 

NEXT ’결과객체에 대한 순환 

’ TableView 행의 수를 결과객체의 행수와 같게 설정 
tbvData . Rows . Count = $ rData . Count 
FINALLY 

DEC Application.Busy ’ busy 기발해제 

CATCH ’ 오유처 리 

Message . Error ("질문을 실행 할수 없음. " 技 "\ n \ n " 沒 Error . Text ) 

END ’ReadData 수속끝 

- TableView 튼트롤의 Data 사건수속 
TableView 콘트롤의 Data 사건은 자료가 현시될 때마다 동작한다. 

이 사건에서는 결과객체의 자료 한행을 TableView 콘트롤의 현재 행과 렬에 삽입 
한다. 

data 사건은 절대로 호출할수 없다. 

TableView 콘트롤을 리용하는 일반적인 방법에서 첫째는 묶음에 현시하려는 모든 
자료를 적재한 다음 우의 ReadData 에서 진행된것처럼 행과 렬로 된 TableView 를 준 
비 하는것 이 다. 

PUBLIC SUB tbvData _ Data(Row AS Integer , Column AS Integer ) 
SrData . MoveTo ( Row ) ’지적 한 행으로 이동 

’결과객체로부터 tableview 의 칸에 자료를 입력 


164 


0활활 @활■할■활 





계 10 장. Gambas 오(• 外표:기지 

tbvData. Data. Text = Str ($rData [tbvData. Columns [Column]. Text]) 
END 

- 홈의 크기를 변경시켰을 때의 사건수속 

PUBLIC SUB Form_Resize() 

tbvData. Resize (ME. ClientW, ME. ClientH) 

END 

- 마당의 자료형과 크기를 결정하는 함수 

PRIVATE FUNCTION tbWidth(hCtrl AS control, iType AS Integer, 
iLength AS Integer, sTitle AS String) AS 
Integer 

DIM iWidth AS Integer 
SELECT CASE iType 
CASE gb. Boolean 

iWidth = hCtrl. Font. Width (Str (FALSE)) + 32 
CASE gb. Integer 

iWidth = hCtrl. Font. WidthC'1234567890") + 16 
CASE gb. Float 

iWidth = hCtrl.Font.Width(CStr(Pi) 技 "E+999") + 16 
CASE gb.Date 

iWidth = hCtrl. Font. Width (Str (Now)) +16 
CASE gb. String 

IF iLength = 0 THEN iLength = 255 
iLength = Min (32, iLength) 
iWidth = hCtrl.Font.Width("X") * iLength + 16 
ENDIF 

END SELECT 

iWidth = Max (iWidth, hCtrl. Font. Width (sTitle) + 8) 

RETURN iWidth 
END 

- 홈을 닫을 때의 사건수속 

PUBLIC SUB Form_Close() 

ME. Close 


END 
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이 자료기지프로그람을 실행시키자면 먼저 PostgreSQL 이나 MySQL 과 같은 자 
료기지체계를 설치해야 한다 . 

다음 자료기지체계를 리용하기 위한 사용자식별표시와 암호를 설정한다 . 그 다음 
프로그람을 실행시키고 프로그람에서 자료를 창조하거나 질문을 실행시킬수 있다 . 
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제 11 장. 마우스, 건반조종과 비트연산 

이 장에서는 마우스와 건반을 조종하는 방법과 비트연산에 대하여 서술한다. 

1. 마우스조종 

마우스는 건반대신에 사용자가 입력할수 있는 가장 일반적인 입력장치이다. 

창문에 의한 대면부가 출현한 때로부터 GUI 는 많은 전진을 이룩하였지만 마우스 
의 진화에서는 별로 큰 전진이 없었다. 

아마도 마우스에서 가장 큰 변화는 빛마우스와 무선마우스가 출현한것이라고 보아 
야 할것이다. 

그러나 마우스의 기초적인 기능은 여전히 같다. 

Gambas 에서는 마우스에 대한 정보를 얻기 위하여 마우스콜라스를 리용할수 있다. 

이 콜라스에는 다음과 같은 속성들이 있다. 

Alt , Button , Control , Delta , Left , Meta , Middle , Normal , Orientation , 
Right , ScreenX , ScreenY , Shift , X , Y , 

Alt , Control , Meta , Shift 와 같은 속성들은 그 건반들이 눌러 워있으면 TRUE 를 
돌려 준다. 

Normal 은 임의의 다른 특수건반이 눌러 워져있는가를 검 사할수 있다. 

Button 으로 임의의 마우스단추를 찰칵하였는가를 검사할수 있다. 

Left , Right , Middle 속성으로 마우스의 해당 단추들이 눌리웠는가를 검사할수 있 
다. 

이 모든 속성 들은 단추가 눌리워있으면 TRUE 를 돌려 준다. 

Orientation 속성이 마우스굴개의 돌기 방향(앞으로，뒤로)을 결정한다면 Delta 는 
마우스굴개의 변위값을 돌려준다. 

표와 모가 창문에서의 상대적위치를 돌려준다면 ScreenX 와 ScreenY 는 탁상화면 
에서 마우스지적자의 절대적인 위치를 돌려준다. 

마우스콜라스에 는 Move 메 쏘드만이 존재 한다. 

Move 는 마우스지적자를 지적한 위치에로 이동시킨다. 

조종할수 있는 마우스사건들은 Mousemove , MouseDown , Mouseup , 
Mousewheel 이 다. 

이 사건들에서 조금이라도 변화가 있으면 그에 대응한 사건이 발생하며 그에 대하 
여 코드로 조종할수 있다. 

마우스나 건반사건을 조종하는 코드를 작성하는데서 중요한것은 미리 정해진 상수 
를 항상 리용하는것 이 다. 
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마우스들라스는 마우스지적자의 형태를 지적하는 아래의 상수들을 러용할수 있다. 

Arrow , Blank , Cross , Custom , Default Horizontal , Pointing , SizeAll , 
SizeE , SizeH , SizeN , SizeNE , SizeNESW , SizeNW , SizeNWSE , SizeS , SizeSE , 
SizeSW , SizeV , SizeW , SplitH , SplitV , Text , Vertical , Wait 

[실습 1] 

마우스조종법 을 설명 하기 위하여 간단한 프로그람을 작성하여보자. 

IDE 환경에서 MouseOps 라는 새 프로젝트를 창조하고 그것을 도형사용자대면부방 
식, public 된 콘트롤로，번역가능하게 설정한다. 

새 홈 Forml 을 창조하고 시 작홈으로 한다. 

다음 Forml 의 왼쪽웃구석에 《 da 》 라는 이름을 가진 Drawingarea 콘트롤을 배치 
하고 크기를 가로세로 linch 크기로 설정한다. 

다음은 코드작성을 진행한다. 

먼저 프로그람이 실행되고 창문이 열러면 창문을 어떻게 지우고 끝내는가를 사용 
자에 게 알려주는 제목띠의 표제를 설정한다. 

다음 홈에 맞게 충분히 큰 그리기구역을 설정하고 고속완충속성을 TRUE 로 하여 
마우스로 그리는 과정을 사용자들이 볼수 있게 한다. 

- 홈열기사건수속 

' Gambas class file 

’ 실행시 홈이 열리면 표제를 설정하고 그리기구역을 다시 설정한다. 

PUBLIC SUB Form _ Open () 

ME.Caption = "Press space to clear , mousewheel exits ...” 
da.W = ME . W -5 
da.H = ME . H -5 

da.ForeColor = color . Black ’전경색을 검은색으로 

’cached 속성을 true 로 설정하여 그림완충기를 러용할수 있게 한 
다. 

da . Cached = TRUE 

draw . Begin ( da ) ’ 그리 기 시 작 

’그리기구역을 4분구로 나누기 위한 수평 및 수직선을 그린 
다. 

draw . Lined , da . h /2, da . W - l , da . h /2) 
draw . Line ( da . W /2, 1, da . W /2, da . H -1) 
draw . End 

END 

- Mousemove 사건수속 

마우스가 움직일 때 마우스가 그러기구역의 어느 분구에 있는가에 따라 마우스지 
적자의 모양이 달라지게 한다. 
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PUBLIC SUB da_MouseMove() 

’왼쪽웃분구인가 검사 

IF mouse. X <= da.W/2 AND mouse. Y <= da.H/2 THEN 
da. Mouse = mouse. Pointing 

ELSE IF ’ 왼쪽아래분구인가 검사 

mouse. X <= da.W/2 AND mouse.Y >= da.H/2 THEN 
da. Mouse = mouse. Cross 

ELSE IF ’오른폭웃분구인가 검사 

mouse. X >= da.W/2 AND mouse.Y <= da.H/2 THEN 
da. Mouse = mouse. SizeNWSE 

ELSE IF ’ 나머지경우는 오른쪽아래분구인 경우 

mouse. X >= da.W/2 AND mouse.Y >= da.H/2 THEN 
da. Mouse = mouse. SizeNESW 

ELSE ’이외의 경우 마우스형태를 표준형으로 

da. Mouse = mouse. Default 
ENDIF 

다음 사용자가 어느 마우스단추를 찰칵하였는가를 검사하고 왼쪽단추를 찰칵한 경 
우에는 점을 그리고 오른쪽단추를 찰칵한 경우에는 작은 통을 그리게 한다 . 

IF Mouse. Left THEN 

Draw. Begin (da) ’ 그러 기 시 작 

Draw. Point (Mouse. X, Mouse. Y) ’ 작은점 그린 다 . 

Draw. End 

ELSE ’ 오른쪽단추를 찰칵한 경우 

Draw. Begin (da) 

Draw. Rect(Mouse.X, Mouse.Y, 3, 3) 

Draw. End 
ENDIF 
END 

- Mousewheel 사건수속 

사용자가 마우스굴개를 움직 이면 프로그람을 끝내게 한다 . 

PUBLIC SUB da_MouseWheel() 

ME. Close 


END 
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마지막으로 사용자가 임의의 건반을 누르면 그리기구역을 지우고 홈을 열 때와 꼭 
갈은 수속을 호출하여 분구를 다시 그리도록 한다 . 

PUBLIC SUB Form_KeyPress() 
da. Clear 
Form_Open() 

END 


실행 결과 



그림 11-1. MouseOps 프로그람의 실행■과 


2. 건반조종 

건반조종사건들에 대한 정보를 얻기 위하여 건반콜라스를 리용할수 있다 . . 

건반클라스의 속성 들로서 는 Alt, Code, Control, Meta, Normal, Shift, State, 
Text 등이 있다 . 

State 는 특수건반들이 눌러웠는가를 검사할 때 리용할수 있으며 Text 는 주어진 건 
반에 해 당한 글자를 돌려준다 . 

이 밖의 속성들은 앞에서 취 급한 마우스콜라스에서 리 용한 속성 과 꼭같다 . 

건반콜라스는 다음과 같은 미리 정해진 상수들을 가지고있다 . 

위치지적자건반으로서 up, Down, Left, Right 가 있다 . 
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기능건으로서 Fl, F2, F3, F4, F5, F6, F7, F8, F9, F10, Fll, F12 이 있다 . 
shift 를 누른 기능건으로서 F13, F14, F15, F16, F17, F18, F19, F20, F21, 
F22, F23, F24 이 있다 . 

이외의 다른 건반들로서 다음과 같은 건반들이 있다 . 


Backspace, 

BackTab, 

CapsLock, 

Delete, 

End 

Enter, 

Esc, 

Escape, 

Help, 

Home 

Insert, 

Menu, 

NumLock, 

PageDown, 

PageUp 

Pause, 

SysReq 

Print, 

Tab 

Return, 

ScrollLock, 

Space 


이미 앞에서 지적하였지만 절대로 옹근수건반값들을 직접 리용하지 말고 Gambas 
의 상수들을 사용해 야 한다 . 

옹근수변수를 선언하고 다음과 갈은 형식으로 건반상수값을 얻을수 있다 . 

DIM Mylnteger AS Integer 
Mylnteger = Key [ Key AS String ] 

[실습 2] 

건반조종방법을 련습하기 위하여 KbdOps 라는 이름을 가진 프로그람을 간단히 작 
성 하여 보자 . 

이 프로그람에서는 두개의 표식콘트롤 TextLabel 과 Label 만을 사용한다 . 

먼저 TextLabel 을 TextLabell 로 , 그의 높이를 ^inch 정도로，너비를 홈의 너비 
만큼으로 설정하여 배치한다 . 

TextLabell 의 Alignment 속성을 center 로 설정한다 . 

Label 의 이름을 Labell 로 한 다음 TextLabell 의 아래 에 배 치 한다 . 

크기는 너비가 2inch 로，높이가 ^inch 로 설정한다 . 

또한 Label 의 Text 속성 은 《Press any key …》로 , 콘트롤의 서 체 크기는 14 로 , 글 
체는 굵은체로 설정한다 . 

다음의 코드를 삽입 한다 . 

’ Gambas class file 
’어떤 건반이 눌렀는가를 검사한다 
PUBLIC SUB Form_KeyRelease() 

SELECT key. code ’ 건반을 누를 때마다 코드를 검사 

CASE key. Tab ’만일 tab 건이라면 

textlabell. Text = "Key code is ： " & key.Code & ",TAB." 
CASE key. Backspace ’ backspace 건 이 라면 

textlabell.Text = "Key code is ： " & key.Code & ".Backspace." 
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CASE key. Caps Lock ’ caps lock 건이 라면 


textlabell.Text = 

"Key code is ： ' 

' 技 key. Code & ” ， CapsLock. 

CASE key. FI 


’ 기능건인 경우 


textlabell.Text = 

"Key code is ： 

，’ & key. Code &，，， 

FI key.' 

CASE key.F2 




textlabell.Text = 

"Key code is: 

n & key. Code &，，， 

F2 key. ’ 

CASE key.F3 




textlabell.Text = 

"Key code is ： 

M & key. Code 技 ’’， 

F3 key.' 

CASE key.F4 




textlabell.Text = 

"Key code is: 

’’ & key. Code & M , 

F4 key. ’’ 

CASE key.F5 




textlabell.Text = 

” Key code is: 

’’ & key. Code & M , 

F5 key. ’ 

CASE key.F6 




textlabell.Text = 

"Key code is: 

’’ & key. Code & M , 

F6 key. ’’ 

CASE key.F7 




textlabell.Text = 

"Key code is ： 

n & key. Code & \ 

F7 key.' 

CASE key.F8 




textlabell.Text = 

"Key code is ： 

n 技 key. Code & ’’， 

F8 key.' 


’우와 다른 경우 표시할수 있는건인가 검사하고 
’표시할수 있으면 그 글자와 코드값을 보여준다 . 

CASE ELSE 

IF key. Code > 32 AND key. Code < 128 THEN 
textlabel 1.Text="keycode is：" & key. Code & "," & 

Chr(key. Code) 

ELSE ’표시할수 없는 건인 경우 코드값을 돌려준다 . 

textlabell.Text = "key code is ： " & key.Code 
ENDIF 

END SELECT 
END 

'shift, control, alt 와 같은 건들이 눌리웠는가를 검사 
PUBLIC SUB Form_KeyPress() 

IF key. Shift THEN 

textlabel 1.Text = "Key code is ： " & key.Code & ", SHIFT" 
ELSE IF key.Alt THEN 

textlabell.Text = "Key code is ： " & key.Code & ", ALT" 
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ELSE IF key. Control THEN 

textlabell.Text = "Key code is ： ” & key.Code 技 ", CTRL’’ 
ELSE IF key. Code > 32 AND key. Code < 128 THEN 
textlabell.Text = "key code is: f, & key.Code & 技 

Chr (key. Code) 

ELSE IF key.Esc THEN ， ESC 건이 눌러웠으면 

textlabell.Text = "key code is ： M & key.Code 技 ’’ ， ESC” 

ELSE 

textlabell.Text = ’’key code is: ” & key.Code 
ENDIF 
END 

PUBLIC SUB Form_Open() 

ME. Caption = ’’ Keyboard Operations ’’ 

END 
실행결과 



그림 11-2. KbdOps 프로그람 


3. 비트연산 

비트 (bit ) 는 름퓨터 연산에서 리용되는 가장 작은 단위 이 다 . 

비트들은 byte 라고 부르는 기 억 단위를 이룬다 . 

8bit 체계에서 한 byte 는 8bit 로 구성된다 . 

오늘 사용되는 현대적인 콤퓨터체계에서 조작체계는 32bit 혹은 64bit 를 단어크기 
로 한다 . 

단어크기는 주소기억공간이 콜수록 증가된다 . 

이와 같이 기억기관리 , 마스크조종 , 수학적계산 등에는 비트연산이 필요하게 된다 . 

비 트연산을 위 하여 8 개의 함수들이 준비 되 여있 다 . 
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비 트연산함수들은 모두 두개 의 파라메터 를 가지 는데 첫 과라메터 는 0~255 사이 의 
수 (lbyte 가 표시할수 있는 수)를 의 미 하며 두번째 파라메터 는 비 트자리 번 호 혹은 개 수 
를 의 미 한다 . 비트자리 번호는 아래 의 그림 과 같이 정한다 . 


7 6 5 4 3 2 10 

- BTst 

형삭 

BTst ( 수， n) 


수의 n 번째비 트가 1 이 면 TRUE, 0 이 면 FALSE 를 돌려 준다 . 
- BClr 

형식 

_ BClr ( 수 . n) _ 

수의 n 번째 비트값을 0 으로 설정하여 돌려준다 . 


형식 

BSet ( 수 , n) 


수의 n 번째 비트값을 1 로 설정하여 돌려준다 . 

- BChg 

형삭 

_ BChg ( 수 , n) _ 

수의 n 번째 비트값을 반대로 설정하여 돌려준다 . 


형식 

SW ( 수 , n) 


수를 n 비트수만큼 왼쪽으로 밀기한 값을 돌려준다 . 
- Shr 

형식 

Shr ( 수 , n) 


수를 n 비트수만큼 오른쪽으로 밀기한 값을 돌려준다 . 
- Rol 
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형식 

_ Rol (수, n) _ 

수를 n 비트수만큼 왼쪽으로 회전시킨 값을 돌려준다. 
- Ror 

형식 

Ror (수, n) 


수를 n 비트수만큼 오른쪽으로 회전시킨 값을 돌려준다. 
Rol 과 Ror 함수들은 다음과 같이 작용한다. 

Rol 연산 



그림 11-3. Rol 과 Ror 연산순서 


R 이은 먼저 한비트를 왼쪽으로 한자리씩 밀기한다. 

이때 0번자리 에는 0값이 아니 라 7번 비트값이 들어온다. 

Ror 는 Rol 과 꼭같이 동작하지만 방향이 반대 이다. 

즉 한비트를 한자리씩 오른쪽으로 밀며 0번 비트값이 7번 비트로 간다. 

[실습 3] 

비트함수들이 어떻게 동작하는가를 보기 위하여 간단한 프로그람을 작성하여보자. 
Gambas IDE 에서 BitOps 라는 새 프로젝트를 창조한다. 

이 프로젝트를 도형대면부방식으로, 번역할수 있는 상태로, 콘트롤들을 public 로 
설정 한다. 

Forml 을 시작홈으로 한다. 

이 프로그람은 첫 본문칸에 0-255 사이의 임의의 옹근수를 입력하면 그 수의 16진 
수와 2진수표시를 보여준다. 

또한 아래의 본문칸에는 2진수에 대한 비트번호(또는 비트개수)를 입력한다. 그 
다음 아래의 단추를 찰칵하는데 따라 임의의 연산을 진행한다. 

연산결과는 2진수값으로 표현되며 이전에 입력한 수값과 비교하여 볼수 있다. 
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이 프로그람을 위 하여 Te ; 단 Labell 부터 Textlabel 7 까지의 7개의 Texiabel 과 
TextBoxl 과 TextBox 2 라는 본문칸, RolBtn , RorBtn , ShlBtn , ShrBtn , ClearBtn , 
TestBtn , SetBtn , ChangeBtn , QuitBta 라는 9 개 의 단추를 아래 의 그림 과 같이 배 치 한다. 



그림 11-4. 설계시의 BitOps 프로그람 


홈을 열 때의 사건수속 
’ Gambas class file 
PUBLIC SUB Form _ Open () 

ME . Caption = " bitOpns " 

END 

Quit 단추를 찰칵할 때의 사건수속 
PUBLIC SUB QuitBtn _ Click () 

ME . Close 
END 

Textbox 2 값이 변화될 때의 사건수속 

TextBox 2 마당에 어떤 값을 넣 어 비 트를 변화시 키 면 변화된 값으로 홈을 수정 할 
필요가 있다. 이것은 다음의 사건수속으로 처 리할수 있다. 

PUBLIC SUB TextBc 保 2_ Change () 

forml . Refresh ’비트값이 변화될 때마다 홈을 다시 현시 

END 

Textboxl 의 초점을 변화시킬 때의 사건수속 
사용자가 TextBoxl 에 옹근수값을 지적하고 TAB 건을 눌러야 LostFocus 사건이 
발생하며 입구값에 반응한다. 

PUBLIC SUB TextBoxl_LostFocus () 

DIM mylnt AS Integer 

mylnt = CInt ( textboxl . text ) ’기호렬값을 옹근수로 변환 

IF Int(mylnt >= 0) AND (mylnt < 256) THEN ’값이 8 bit 범위의 값인가 검사 
Label 2. Text = " Hex ： " & Hex ( mylnt ) ’16 진수값으로 변환 

Label 3. Text = " Bin ： " & Bin ( mylnt ) ’2 진값으로 변환 

Label 7 .Text = Str $( mylnt ) ’ 

forml.Refresh ’홈을 다시 표시 한다. 
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ENDIF 

END 

Clear 단추를 찰칵할 때의 사건수속 
clear 단추를 찰칵하면 옹근수에서 해당 비트값을 지운다 . 

PUBLIC SUB ClearBtn_Click() 

DIM i AS Integer 
DIM result AS Integer 
DIM mylnt AS Integer 

mylnt = CInt(textboxl. text) ’ 기호렬값을 옹근수로 변환 

’옹근수값이 0-255 사이이면 처리를 계속하고 그렇지않으면 무시 
IF Int(mylnt >= 0) AND (mylnt < 256) THEN 
result = CInt (TextBox2. Text) 
i = BClr(myInt, result) 
label5.Text = "Bclr ： " 逐 Bin(i) 
label?. Text = Str$ 松 : 

ENDIF 
END 

Set 단추를 찰칵할 때의 사건수속 

Set 단추를 찰칵하면 옹근수에 대하여 지적된 비트를 1 로 설정한다 . 

이것은 우에서 본 clear 단추의 경우와 반대이다 . 

PUBLIC SUB SetBtn_Click() 

DIM i AS Integer 
DIM result AS Integer 
DIM mylnt AS Integer 


’기호렬값을 옹근수로 변환 
’비트값 지우기 
’표식콘트롤값 수정 


= CInt (textboxl. text) ’ 기 호렬 값을 옹근수로 변환 

’옹근수값이 0~255 이면 다음단계를 진행하고，그렇지 않으면 무시 


IF Int (mylnt >= 0) AND (mylnt < 256) THEN 


resuk = CInt (TextBox2. Text) 
i = BSet (mylnt, result) 
label5. Text = "Bset ： " & Bin(i) 
label?. Text = Str$(i) 


’기호렬값을 옹근수로 변환 
’비 트설정 

’label 들을 수정 


ENDIF 


END 
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Change 단추를 찰칵했을 때의 사건수속 
사용자가 Change 단추를 찰칵하면 Bchg 함수의 거물연산이 수행된다 . 
PUBLIC SUB ChangeBtn_Click() 

DIM i AS Integer 
DIM result AS Integer 
DIM mylnt AS Integer 
mylnt = CInt (textboxl. text) 

IF Int (mylnt >= 0) AND (mylnt < 256) THEN 
result = CInt (TextBox2. Text) 
i = BChg (mylnt, result) 
label5.Text = "Bchg ： M & Bin(i) 
label7.Text = Str$(i) 

ENDIF 

END 

Shi 단추를 찰칵하였을 때의 사건수속 
PUBLIC SUB SHLBtn_Click() 

DIM i AS Integer 
DIM result AS Integer 
DIM mylnt AS Integer 
mylnt = CInt (textboxl. text) 

IF Int (mylnt >= 0) AND (mylnt < 256) THEN 
result = CInt (TextBox2. Text) 
i = Shi (mylnt, result) 
label5.Text = ’’SHL: f, & Bin(i) 
label7.Text = Str$ (i) 

ENDIF 

END 

Shr 단추률 찰칵하였을 때의 사건수속 
PUBLIC SUB SHRBtn_Click() 

DIM i AS Integer 
DIM result AS Integer 
DIM mylnt AS Integer 
mylnt = CInt (textboxl. text) 

IF Int (mylnt >= 0) AND (mylnt < 256) THEN 
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result = CInt(TextBox2. Text) 
i = Shr(mylnt, result) 
label5.Text = M SHR ： M & Bin(i) 
label7.Text = Str$(i) 

ENDIF 

END 

R 이단추를 찰칵하였을 때의 사건수속 
PUBLIC SUB ROLBtn_Click() 

DIM i AS Integer 
DIM result AS Integer 
DIM mylnt AS Integer 
mylnt = CInt (textboxl. text) 

IF Int (mylnt >= 0) AND (mylnt < 256) 
result = CInt (T extBox2. Text) 
i = Rol (mylnt, result) 
label5.Text = "ROL ： " & Bin(i) 
label7.Text = Str$(i) 

ENDIF 

END 

Ror 단추률 찰칵하였을 때의 사건수속 
PUBLIC SUB RORBtn_Click() 

DIM i AS Integer 
DIM result AS Integer 
DIM mylnt AS Integer 
mylnt = CInt (textboxl. text) 

IF Int (mylnt >= 0) AND (mylnt < 256) 
result = CInt (T extBox2. Text) 
i = Ror (mylnt, result) 
label5.Text = "ROR ： ” & Bin(i) 
label7.Text = Str$(i) 

ENDIF 

END 

Test 단추를 찰칵하였을 때의 사건수속 
PUBLIC SUB TestBtn_Click() 

DIM i AS Boolean 


’왼쪽회전 


THEN 


’오른쪽회전 


THEN 
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DIM result AS Integer 
DIM mylnt AS Integer 
mylnt = CInt (textboxl. text) 

IF Int(mylnt >= 0) AND (mylnt < 256) THEN 
result = CInt(TextBox2. Text) 
i = BTst(mylnt, result) 
label5. Text = "Btst ： " 技 i 
ENDIF 
END 
실행 결과 



그림 11-5. bitOps 프로그람의 실행결과 
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제 12장. 프로그람의 국제화 

Gambas 는 최초부터 국제적인 통신과 교류를 보장할수 있도록 설계되였다 . 

따라서 Gambas 는 개발자들에게 모든 나라의 리용자들을 만족시키는 대면부를 가 
진 프로그람을 작성할수 있는 가능성 을 주고있다 . 

그리하여 필요한 언어로 쉽게 변환되는 프로그람들이 개발되고있다 . 

이 장에서는 모든 Gambas 프로그람개발자들이 국제화가 실현된 프로그람을 개발하 
는데서 알아야 할 기초적인 지식을 주게 된다 . 

1 . 프로그람의 국제화 

프로그람의 국제화는 그 어떤 기술적변화를 주지 않아도 여러 언어와 지역에 적용 
될수 있는 응용프로그람을 설계 하는 공정을 말한다 . 

때때로 국제화라는 단어를 il8n 으로 간략하여 표현하기도 한다 . 왜냐하면 국제화 
(Internationalization ) 라는 단어의 시작과 끝사이에 18 개의 글자가 있기때문이다 . 

지역적자료가 첨부된 국제화된 프로그람은 세계의 어떤 지역에서도 실행될수 있다 . 

상태 통보와 도형 대 면부요소들에 서 나오는 본문들은 프로그람에 서 완전히 고정 된 
코드가 아니라 원천코드밖에 보관되여 해당 언어 및 지역에 따라 동적으로 읽어진다 . 

즉 새 언어를 선택한다고 하여 프로그람을 다시 콤파일할것을 요구하지 않는다 . 

결국 날자라든가 화폐와 같은 자료들은 말단사용자의 지역과 언어선택에 따라 자 
동적으로 나타난다 . 

프로그람의 국제화를 실현하자면 세계 모든 지역에서 사용하는 글자들을 표현할수 
있어야 한다 . 이를 위하여 국제적으로 UCS ( 만능문자모임)와 UNIcode ( 유니코드)를 
제 정 하였 다 . ISO/IEC10646 는 만능문자모임 (UCS) 이 라고 하는 대 단히 큰 문자모임 을 
제 정하였는바 이것은 세계의 글쓰기체 계의 대 부분을 포함하고있다 . 

UCS 의 매 글자들에는 유니코드가 대응되게 된다 . 

유니코드는 현재 약 100 000 개의 글자들을 정의하고있지만 1 114 112 개의 코드구 
역을 가지고있다 . 코드구역은 0 부터 16 까지의 번호가 붙은 17 개의 면들로 되여있으며 
매 면은 216 개의 글자코드로 이루어져 있다 . 

0 면에는 일반적으로 유니코드가 나오기 이전에 개발자들이 사용하던 기초적인 문 
자들을 포함하고있으며 다른 면들에서 문자들은《서쪽에서 동쪽으로》의 순서로 분포 
되여 있다 . 

따라서 0-127 값은 이 미 잘 알려진 ASCII 코드값을 가지 며 128~255 까지 의 값은 
ISO-Latin-1 문자에 해당한 값을 가지게 된다 . 그 다음 문자들은 유럽을 가로질러 동 
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쪽으로(그리 스문자 , 카릴로스문자 ) 이동하여 중동지 역(아랍어 , 헤 브라이 어 등)을 거 쳐 
인디아와 동남아시아를 거처 중국 , 일본과 조선문자들로 끝난다 . 

오늘까지 UCS 와 유니코드에 대한 수정 및 보충사업은 조화롭게 진행되고있으며 
따라서 문자수집과 코드표현은 동시에 진행되고있다 . 

2. 프로그람의 국제화실현방법 


^ Compile 
용 Compile All 


Alt+F7 


n Make executable... Ct 

Make source archive... 
ce installation package... 


^ Make instal 
■SlWjrfB 
O Refresh 
IS 1 Properties... 


그림 12-1. Translate 항목선택 

untranslated strings 목록에 선택한 문자렬이 나타난다 . 


프로그람의 국제화를 실현하려면 IDE 에서 Gambas 
프로젝 트를 열 고 그림 과 같이 Project/Translate... 를 
찰칵한다 . 

다음 Translate 대화창의 첫 복합칸에서 번역 하려는 
언어를 선택한다 . 그러면 프로젝트의 대면부콘트롤표제 
들과 통보문들이 모두 목록으로 나타난다 . 

여기서 번역하려는 문자렬을 선택하면 



대화창의 밑에 있는 본문마당에 해당한 번 
역내용을 편집하여 넣는다 . 개발하는 응용프로 
그람의 모든 문자렬을 번역할 때까지 이 공정 
을 반복한다 . 이것이 끝나면 Close 단추를 찰 
칵한다 . 이러한 문자렬번역공정은 여러번에 걸 
쳐 진행될수 있으므로 편집 및 관리를 위한 여 
러가지 기능들이 필요하다 . 

따라서 Trans late 대화칸의 득대기에는 다 
음과 같은 기능을 수행하는 아이콘들이 차례로 
있 다 . 

• 현재 번역한것을 보관 

• 번역한것을 재적재 (주의 : 재적재할 때 번 
역하던 내용은 잃게 된다 .) 


• 현재 번역한것을 삭제 

• 번역한 내용의 부본창조 

• 현재 번역한것을 외부파일로 출력 

• 번역파일들을 현재 번역한 내용과 결합 

• 매 문자들이 보존되였는가를 검사 

번역과정에 일부 문자렬은 번역하지 말아야 하는 경우도 있다 . 

이때는 번역되는 문자렬에 덜기기호를 넣어 번역되지 않는 문자렬을 지적할수 있다 . 
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번역결과는 해당 프로젝트의 .lang 등록부에 *.po 파일에 보관된다. 

*.po 파일의 이름은 번역된 언어에 관계된다. 

실례로 프랑스어로 번역된 파일은 fr.po 라는 이름으로 된다. 

앞으로 Gambas 2 가 출하될 때에는 다음과 같은 문제들이 완전히 해결될것으로 본다. 
모든 통보들과 아이콘들, 사람들이 읽을수 있는 내용들을 외부자원파일들에 보관 
하며 쉽게 번역할수 있다. 

번역된 통보들이나 자원파일들은 현재 언어와 지역적인 설정에 따라 동적으로 응 
용프로그람에 적재되게 된다. 날자/시간，분류차례，수자와 화폐형식 등은 목적하는 
언어에 따른다. 분류차례는 사용자의 언어에 따른다. 

사용자는 자기 가 목적 하는 언어 로 정 확히 입 력 할수 있으며 현시할수 있게 된다. 
또한 문자들은 목적하는 플레트홈의 다국어파일체계로부터 읽어들일수 있으며 쓰 
기도 할수 있다. 

개 발된 응용프로그람의 국제화수준을 평가하는 기준은 다음과 갈다. 

• 프로그람이 국제화를 고려하였는가? 

• 사용자가 건반으로 지름건을 조합할수 있는가? 

• 사용자가 국제화형식을 사용하여 날자，시간, 화폐 , 수자들을 입력할수 있는가? 

• 사용자가 글자들로 된 본문을 자르기/복사할수 있는가? 

• 응용프로그람이 지 역 화조종체 계 에서 정 확히 동작하는가? 

• 응용프로그람이 서로 다른 형태의 장치들에서 정확하게 동작할수 있는가? 

• 사용자가 유럽의 력점 있는(혹은 아시 아의 두 byte 문자)문자들을 문서와 대 화칸 
에서 입력할수 있는가? 

• 사용자가 력점 있는 문자 (혹은 두 byte 문자) 들로 된 파일들을 보관하고 인쇄 할 
수 있는가? 

• 목적하는 언어로 창조된 문서들이 반대로 다른 언어들에서 열릴수 있는가? 
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제 13 장. Gambas 와 VB 의 차이점 

Gambas 와 구묘는 서로 비슷하며 언어상 1대 1대응관계에 있는것도 많지만 차이점 
도 적지 않다. 


1. 차이점 


VB 에 서 는 홈을 정 의 하는 파일안에 홈객 체 와 클라스코드가 함께 섞 여 있 다. 
그러나 Gambas 에서는 홈과 둘라스를 각각 . form , . class 로 서로 구분한다. 
파일확장자들도 차이난다. 


VB 

Gambas 

파일형래 

. vbp 

. project (하나의 등록부에 하나의 프로젝트 대응) 

프로젝 트파일 

.bas 

. module 

모둘 

.els 

.class 

클라스 파일 

.frm 

.form 

홈파일 

.frx 


2진원천파일 


Gambas 프로젝트는 프로젝트파일과 다른 모든 파일들을 포함한 하나의 등록부로 
정의된다. 그러나 VB 에서는 하나의 등록부에 여러개의 프로젝트들을 포함할수 있다. 

VB 에서는 화면자리표의 단위가 《 twip 》( ltwip = l /1440 inch ) 이지만 Gambas 에서 
는 《 pixel 》 로 되 여 있다. 

Gambas 에서 str $(), val (), cstr $() 와 같은 변환함수들은 VB 에서 는 전혀 볼수 없 
는 지역적특성을 가진다. 

Gambas 에 서 는 integer , string 과 같은 단순자료형 파라메 터 들이 함수나 수속에 값 
으로 전달된다. 그러 나 VB 에서 는 모든 파라메터 들이 byval 을 지 적 하지 않는 한 참고 
형태로 전달된다. 한편 객체자료형파라메터는 두 언어에서 다 참고형태로 전달된다. 

그러므로 VB 프로그람을 Gambas 에 이식하려 할 때에는 이런 점을 주의하여야 한다. 

Gambas 에서 프로젝트범위의 대 역변수의 소개는 VB 와 완전히 차이 난다. 

먼저 대역적인 콜라스를 만들고 그 클라스안에 static , public 형태로 대역변수를 
소개 한다. 다음 프로젝트의 임의의 장소에서는 《 Global . 변수이름》형 태로 변수를 리용 
할수 있다. 

VB 모둘에서는 option explicit 를 선언하지 않으면 변수소개를 하지 않아도 된다. 
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계， 3 장. Gambas 오 (• VB 의 外 Of 점 

그러나 Gambas 에서는 항상 변수소개를 할것을 요구한다. 

Gambas 에는 VB 홈콘트롤속성 인 index 속성 에 대 응한 속성 이 없다. 

그러므로 콘트롤묶음을 창조하자면 코드를 리용하여 야 한다. 

또한 홈에서 콘트롤을 복사하여 붙이기하면 VB 에서처럼 콘트롤묶음이 생기지 않고 
원래 콘드롤과 비슷한 이름을 가진 새로운 콘트롤이 생긴다. 

Gambas 에서는 label 콘트롤에 투명한 배경을 줄수 없다. 

Gambas 에서 mousemove 사건은 마우스단추를 누른 상태에서만 일어난다. 그러나 
DrawingArea 콘트롤에서는 례외적 이 다. 

DrawingArea 론트롤에서 는 Tracking 속성에 따라 마우스단추를 누르지 않아도 
mousemove 사건을 일으킬수 있다. 

VB 에서는 두 문자렬을 련결시키기 위하여 《 +》연산자를 러용할수 있다. 그러나 
Gambas 에서는《 +》연산자가 수학연산에만 리용되므로 두 문자렬을 련결하자면《&》 
연산자를 러용해 야 한다. 

Gambas 에서는 print 명령문 음에《 :》기호를 명 령문분리기호로 사용하지 말아야 한 
다. 즉 코드작성시 print 명령문이 있는 행에는 다른 명령문을 함께 쓰지 말아야 한다. 

VB 에서는 mid $() 가 부분기호렬을 교체하는 함수로 리용되지만 Gambas 에서는 부 
분기호렬을 따내는 함수로 리용된다. 

실례로 

VB 에 서 는 

mystring =” Is this Gambas ?” 

Mid $( mystring ， 4, 4)=” that " 

Print mystring 

결과 

Is that Gambas ? 

Gambas 에서 같은 결과를 얻자면 

mystring =" Is this Gambas ?” 

mystring = left $( mystring , 3) & " that " & mid $( mystring , 8) 

Print mystring 

Gambas 에서는 오유조종에 Goto 명 령문을 쓸수 없다. 

오유조종을 위해서는 Catch , Finally , Try 명령문을 리용해야 한다. 

Gambas 에는 VB 에서 볼수 없는 콘트롤그롭이라는 개념이 있다. 

이것을 리용하면 같은 사건수속을 가지는 서로 다른 여러개의 콘트롤들을 그룹으 
로 묶어 코드작성을 간소화할수 있다. 

Gambas 에서는 New 명령문을 리용하여 콘트롤과 안내문들을 동적으로 창조할수 
있 다. 
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그러나 VB 에서는 콘트롤들을 동적으로 창조할수 없다. 

Gambas 에서는 콘트롤들에 대한 마우스효과를 위하여 Enter , leave 사건을 리용한다. 
Gambas 에서 2진파일을 읽 어 처 리하자면 open 명 령문에서 big 와 little 을 지적하여 
주어 야 한다. 

Gambas 는 프로젝트를 충분히 국제화할수 있다. 

Gambas 는 그 개 발환경도 자체언어 로 작성된 개 방형 프로그람이므로 개 발자의 요구 
에 맞게 개발환경을 변화시킬수 있다. 

2. 기능은 같지만 언어적표현이 다른것 

같은 기능에 대 하여 서로 다른 방식으로 처 리하는것을 간단히 표로 보여준다. 


VB 

Gambas 

Sub/End Function 

End 

End Sub/Exit Function 

Return 

함수값을 귀환하는 방법도 차이난다. 

End (프로그람끝내기) 

Quit 

On Error 

Try , Catch , Finally 

Messagebox 

Message , Message , info 

Inpu 比 ) ox 함수 

Inpuftox 클라스 

Doevents 

Wait 

기호렬에 々를 삽입하자면 今 今 

기호렬 에 /，를 삽입 하자면 \» 

Vscrollbar 와 Hscrollbar 론트롤 

Scrollbar 론트롤 

건반과 마우스사건수속 파라메터 들 
실례 

form_mouseup (button as integer , 
shift as integer , x as single , 
y as single ) 

Key 와 mouse 믈라스를 리용 
실례 

mouse , button , mouse , shift 
mouse , x , mouse , y , 
key . code 
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